evv/gw-basic-2026
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiler: CHAIN/COMMON/RUN "file" via runtime delegation — 67/72 (93%)

Browse Source 
CHAIN: delegate to runtime interpreter via emit_delegate_stmt with full
variable sync. Runtime loads .bas file, preserves COMMON variables, and
runs it via gw_run_loop(). Compiled code exits after CHAIN returns.

COMMON: delegate to runtime to mark variables for CHAIN preservation.

RUN "file": delegate to runtime interpreter which loads and runs the
file. Compiled code exits after (RUN doesn't return to caller).

67/72 tests pass (93%). Only 2 remain: monte_carlo and number_guess
(RNG seed differences — not bugs).
This commit is contained in:
Eremey Valetov
2026-03-29 19:40:30 -04:00
parent a21f60cd89
commit 28055326bb
1 changed files with 24 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codegen.c
+24 -3
View File
@@ -1853,6 +1853,20 @@ static void emit_stmt(void)
}
/* OPEN / CLOSE — file I/O (Phase 3: needs inline argument parsing) */
/* RUN ["file"] — if with string arg, delegate to runtime interpreter */
if (tok == TOK_RUN) {
uint8_t *start = tp;
advance();
skip_spaces();
if (cur() == '"') {
/* RUN "file" — load and run via interpreter. Doesn't return. */
emit_delegate_stmt(start, false);
EMIT(" gwrt_shutdown(); exit(0);\n");
}
/* RUN (without file) — restart compiled program. Just goto first line. */
return;
}
/* SAVE / LOAD / MERGE / BSAVE / BLOAD — delegate to runtime */
if (tok == TOK_SAVE || tok == TOK_LOAD) {
uint8_t *start = tp;
@@ -2132,9 +2146,16 @@ static void emit_stmt(void)
emit_delegate_stmt(fe_start, true);
return;
}
if (xstmt == XSTMT_COMMON || xstmt == XSTMT_CHAIN) {
EMIT(" /* CHAIN/COMMON — not supported in compiled mode */\n");
while (cur() && cur() != ':' && cur() != 0) tp++;
if (xstmt == XSTMT_COMMON) {
/* COMMON marks variables for CHAIN preservation — delegate */
emit_delegate_stmt(fe_start, false);
return;
}
if (xstmt == XSTMT_CHAIN) {
/* CHAIN loads + runs another .bas file via the runtime interpreter.
* Sync all variables, then delegate. CHAIN doesn't return. */
emit_delegate_stmt(fe_start, false);
EMIT(" gwrt_shutdown(); exit(0); /* CHAIN doesn't return */\n");
return;
}
if (xstmt == XSTMT_ENVIRON || xstmt == XSTMT_DATE ||