diff options
Diffstat (limited to 'apps/interpreters/bas/bas.c')
-rw-r--r-- | apps/interpreters/bas/bas.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/apps/interpreters/bas/bas.c b/apps/interpreters/bas/bas.c index 2260a5077..63f9c69d8 100644 --- a/apps/interpreters/bas/bas.c +++ b/apps/interpreters/bas/bas.c @@ -140,7 +140,7 @@ static enum } g_pass; static int g_stopped; -static int optionbase; +static int g_optionbase; static struct Pc g_pc; static struct Auto g_stack; static struct Program g_program; @@ -1539,7 +1539,7 @@ static void new(void) Program_destroy(&g_program); Program_new(&g_program); FS_closefiles(); - optionbase = 0; + g_optionbase = 0; } static void pushLabel(enum labeltype_e type, struct Pc *patch) @@ -1917,7 +1917,7 @@ static struct Value *compileProgram(struct Value *v, int clearGlobals) g_lastdata = &g_stack.begindata; } - optionbase = 0; + g_optionbase = 0; g_stopped = 0; g_program.runnable = 1; g_pc = begin; @@ -1989,7 +1989,7 @@ static void runline(struct Token *line) g_curdata.line = -1; g_pc.line = -1; g_pc.token = line; - optionbase = 0; + g_optionbase = 0; g_stopped = 0; statements(&value); if (value.type != V_ERROR && g_pc.token->type != T_EOL) @@ -2029,7 +2029,7 @@ static void runline(struct Token *line) g_pc.line = -1; g_pc.token = line; - optionbase = 0; + g_optionbase = 0; g_curdata = g_stack.begindata; g_nextdata.line = -1; Value_destroy(&value); @@ -2092,14 +2092,14 @@ static struct Value *evalGeometry(struct Value *value, unsigned int *dim, return value; } - if (g_pass == INTERPRET && value->u.integer < optionbase) + if (g_pass == INTERPRET && value->u.integer < g_optionbase) { Value_destroy(value); g_pc = exprpc; return Value_new_ERROR(value, OUTOFRANGE, _("dimension")); } - geometry[0] = value->u.integer - optionbase + 1; + geometry[0] = value->u.integer - g_optionbase + 1; Value_destroy(value); if (g_pc.token->type == T_COMMA) { @@ -2111,14 +2111,14 @@ static struct Value *evalGeometry(struct Value *value, unsigned int *dim, return value; } - if (g_pass == INTERPRET && value->u.integer < optionbase) + if (g_pass == INTERPRET && value->u.integer < g_optionbase) { Value_destroy(value); g_pc = exprpc; return Value_new_ERROR(value, OUTOFRANGE, _("dimension")); } - geometry[1] = value->u.integer - optionbase + 1; + geometry[1] = value->u.integer - g_optionbase + 1; Value_destroy(value); *dim = 2; } |