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.14, 2025/04/14 23:20:23
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.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 1691 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 1701 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 (;;) {