version 1.14, 2025/04/14 23:20:23
|
version 1.18, 2025/05/02 16:30:16
|
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.18 2025/05/02 16:30:16 snw |
|
* Fix broken build due to time issues |
|
* |
|
* Revision 1.17 2025/05/01 03:56:29 snw |
|
* -m |
|
* |
|
* 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 |
* Revision 1.14 2025/04/14 23:20:23 snw |
* Restore support for any 8-bit character in |
* Restore support for any 8-bit character in |
* |
* |
Line 156
|
Line 168
|
#define GET 'Y' |
#define GET 'Y' |
#define GETX ':' |
#define GETX ':' |
|
|
#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__) |
#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__) && !defined(__linux__) |
long time (); |
long time (); |
#endif |
#endif |
void cond_round (char *a, int digits); |
void cond_round (char *a, int digits); |
Line 2985 f20:
|
Line 2997 f20:
|
long l1, rouoldc; |
long l1, rouoldc; |
short reload = FALSE; |
short reload = FALSE; |
|
|
|
/* |
|
printf ("a = %s f = %d arg = %d\r\n", a, f, arg); |
|
for (i = arg; i < arg + f; i++) { |
|
printf ("argstck[%d] = '%s'\r\n", i, argstck[i]); |
|
} |
|
|
|
for (i = 0; i < strlen (a); i++) |
|
printf ("%c = %d\r\n", a[i], (unsigned char) a[i]); |
|
*/ |
|
|
if (f > 3) { |
if (f > 3) { |
merr_raise (FUNARG); |
merr_raise (FUNARG); |
return; |
return; |