codegen fixes, --no-gc-check / --fast-math, raise caps, DATE$/TIME$ shift

Four roadmap items:

- codegen: fix parenthesized string comparison.  emit_atom didn't
  consume the body of a string-literal token (`"`), so for
  PRINT (A$+B$ < "ZZZ") it emitted a 0 placeholder, advanced one byte,
  and left "ZZZ" to be reparsed as a variable + extra trailing tokens
  -- the binary then failed to link with `var_ZZ_sng` undeclared.
  emit_atom now skips to the closing quote.  Separately, the
  left_type tracking in emit_num_prec dropped VT_STR after a string +
  string concat (becoming VT_SNG), so the string-comparison codepath
  skipped when the relational operator arrived.  Preserve VT_STR
  through TOK_PLUS when both operands are strings.  Verified: paren
  string-cmp now compiles and produces the same -1 / 0 result as the
  interpreter.

- compiler: --no-gc-check and --fast-math optimization flags.
  --no-gc-check skips the per-line gwrt_check_line() (no string-pool
  GC, no Ctrl+Break trap).  --fast-math drops the divide-by-zero
  guard on `/`; the divisor still goes through (double) so 10/0
  produces inf rather than SIGFPE.  Both threaded through
  codegen_opts_t and exposed in --help.  --inline-arrays from the
  roadmap deferred -- larger refactor.

- interp: raise static caps on 32-bit / Linux builds.  vars 256
  -> 1024, arrays 64 -> 256, MAX_FOR_DEPTH 16 -> 64, MAX_GOSUB_DEPTH
  24 -> 128, MAX_WHILE_DEPTH 16 -> 64.  Codegen FOR_STACK_MAX 16
  -> 64.  Analysis-pass caps: MAX_LINES 4096 -> 8192, MAX_VARS 256
  -> 1024, MAX_GOTOS 256 -> 1024, MAX_DATA 1024 -> 4096,
  MAX_GOSUB_RET 256 -> 1024.  16-bit DOS keeps the original modest
  caps via #ifdef _M_I86 -- the MEDIUM model has a single 64KB
  DGROUP for all static data and the bumped sizes broke runtime
  startup under DOSBox-X.  16-bit binary grew from 128KB to 132KB
  from the offset_secs field plus DATE$/TIME$ shift code, well
  within the FreeDOS budget.

- interp + codegen: DATE$ / TIME$ assignment via process-local
  clock offset.  Was a no-op accept-and-ignore.  Now sets
  gw.time_offset_secs (long), and DATE$ / TIME$ / TIMER readers
  apply it to time(NULL) before formatting.  The OS clock is
  unaffected (would need root).  Compiled-binary readers also
  reference gw.time_offset_secs since libgwrt shares the gw
  struct.  Verified: PRINT DATE$; DATE$="12-31-1999"; PRINT DATE$
  shows the expected before/after in both interpreter and AOT
  paths.

After these changes: 72/72 interpreter tests, 68/68 compat, 63/63
compiler tests, DOS smoke under DOSBox-X all pass.  Build clean on
both Linux (cmake) and 16-bit DOS (build_dos.sh 16).
This commit is contained in:
Eremey Valetov
2026-05-04 18:56:58 -04:00
parent da1e6cebf1
commit f207d74aec
9 changed files with 162 additions and 46 deletions
+23 -6
View File
@@ -24,17 +24,29 @@ typedef struct {
/* Default variable types for A-Z (DEFTBL) */
gw_valtype_t def_type[26];
/* Variable storage */
var_entry_t vars[256];
/* Variable storage. Caps stay modest on 16-bit DOS (MEDIUM model has
* a single 64KB DGROUP for all static data); 32-bit / Linux builds
* raise them substantially. */
#ifdef _M_I86
#define MAX_VAR_TABLE 256
#define MAX_ARRAY_TABLE 64
#define MAX_FOR_DEPTH 16
#define MAX_GOSUB_DEPTH 24
#define MAX_WHILE_DEPTH 16
#else
#define MAX_VAR_TABLE 1024
#define MAX_ARRAY_TABLE 256
#define MAX_FOR_DEPTH 64
#define MAX_GOSUB_DEPTH 128
#define MAX_WHILE_DEPTH 64
#endif
var_entry_t vars[MAX_VAR_TABLE];
int var_count;
array_entry_t arrays[64];
array_entry_t arrays[MAX_ARRAY_TABLE];
int array_count;
int option_base;
/* Control flow stacks */
#define MAX_FOR_DEPTH 16
#define MAX_GOSUB_DEPTH 24
#define MAX_WHILE_DEPTH 16
for_entry_t for_stack[MAX_FOR_DEPTH];
int for_sp;
gosub_entry_t gosub_stack[MAX_GOSUB_DEPTH];
@@ -53,6 +65,11 @@ typedef struct {
uint8_t *cont_text;
program_line_t *cont_line;
/* Process-local clock offset (seconds). DATE$ / TIME$ assignments
* shift the program's view of the clock without touching the OS
* time (which would need root). Defaults to 0. */
long time_offset_secs;
/* DATA pointer */
uint8_t *data_ptr;
program_line_t *data_line_ptr;