freem/src/expr.c - diff

Return to expr.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.13, 2025/04/13 04:22:43	version 1.16, 2025/04/30 20:03:09
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.16 2025/04/30 20:03:09 snw
	* Work on entryref parser
	*
	* Revision 1.15 2025/04/30 14:41:03 snw
	* Further debugger work
	*
	* Revision 1.14 2025/04/14 23:20:23 snw
	* Restore support for any 8-bit character in
	*
* Revision 1.13 2025/04/13 04:22:43 snw	* Revision 1.13 2025/04/13 04:22:43 snw
* Fix snprintf calls	* Fix snprintf calls
*	*
Line 1688 uparrow:	Line 1697 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 1700 uparrow:	Line 1707 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 (;;) {

Line 2992 f20:	Line 2991 f20:
long l1, rouoldc;	long l1, rouoldc;
short reload = FALSE;	short reload = FALSE;

	/*
	printf ("a = %s f = %d\r\n", a, f);
	for (i = arg; i < arg + f; i++) {
	printf ("argstck[%d] = '%s'\r\n", i, argstck[i]);
	}
	*/

if (f > 3) {	if (f > 3) {
merr_raise (FUNARG);	merr_raise (FUNARG);
return;	return;