freem/src/expr.c - diff

Return to expr.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.10, 2025/03/24 04:13:11	version 1.11, 2025/03/30 01:36:58
Line 24	Line 24
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
* $Log$	* $Log$
	* Revision 1.11 2025/03/30 01:36:58 snw
	* Make it easier to bring back fma_gedit, fix double-free in global handler, limit $CHAR to 7-bit ASCII
	*
* Revision 1.10 2025/03/24 04:13:11 snw	* Revision 1.10 2025/03/24 04:13:11 snw
* Replace action macro dat with fra_dat to avoid symbol conflict on OS/2	* Replace action macro dat with fra_dat to avoid symbol conflict on OS/2
*	*
Line 1678 uparrow:	Line 1681 uparrow:

case 'c': /* $CHARACTER */	case 'c': /* $CHARACTER */

{	{
	char chrtmp[256];
	long pnum;
short l, l1, m, n;	short l, l1, m, n;

l1 = f;	l1 = f;
Line 1689 uparrow:	Line 1694 uparrow:
n = 1;	n = 1;
l = 0;	l = 0;

	stcpy (chrtmp, a);
	stcnv_m2c (chrtmp);
	pnum = atol (chrtmp);

	if (pnum > 127) {
	merr_raise (MXNUM);
	return;
	}

for (;;) {	for (;;) {

if ((ch = a[i++]) == EOL) {	if ((ch = a[i++]) == EOL) {