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.15, 2025/04/30 14:41:03
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.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 1694 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 1704 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 2991 f20:	Line 2987 f20:
{	{
long l1, rouoldc;	long l1, rouoldc;
short reload = FALSE;	short reload = FALSE;

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