diff options
author | Gregory Nutt <gnutt@nuttx.org> | 2014-11-08 11:47:35 -0600 |
---|---|---|
committer | Gregory Nutt <gnutt@nuttx.org> | 2014-11-08 11:47:35 -0600 |
commit | 641d1fcb121ab8d34b3c0407a338dc0447e5321e (patch) | |
tree | 1c247a920481ad1b56deb89c5b61034d5b560c13 /apps/interpreters/bas/statement.c | |
parent | 8d574280b36ca70b32c3643c02652da52b669dd7 (diff) | |
download | nuttx-641d1fcb121ab8d34b3c0407a338dc0447e5321e.tar.gz nuttx-641d1fcb121ab8d34b3c0407a338dc0447e5321e.tar.bz2 nuttx-641d1fcb121ab8d34b3c0407a338dc0447e5321e.zip |
BAS: More name compatibility changes
Diffstat (limited to 'apps/interpreters/bas/statement.c')
-rw-r--r-- | apps/interpreters/bas/statement.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/apps/interpreters/bas/statement.c b/apps/interpreters/bas/statement.c index f8aa0fa0d..cd9ea6f86 100644 --- a/apps/interpreters/bas/statement.c +++ b/apps/interpreters/bas/statement.c @@ -907,7 +907,7 @@ struct Value *stmt_DIM(struct Value *value) return value; } - if (g_pass == INTERPRET && value->u.integer < optionbase) /* error */ + if (g_pass == INTERPRET && value->u.integer < g_optionbase) /* error */ { Value_destroy(value); Value_new_ERROR(value, OUTOFRANGE, _("dimension")); @@ -937,7 +937,7 @@ struct Value *stmt_DIM(struct Value *value) geometry = more; } - geometry[dim] = value->u.integer - optionbase + 1; + geometry[dim] = value->u.integer - g_optionbase + 1; ++dim; } @@ -968,7 +968,7 @@ struct Value *stmt_DIM(struct Value *value) struct Var newarray; assert(capacity); - if (Var_new(&newarray, vartype, dim, geometry, optionbase) == + if (Var_new(&newarray, vartype, dim, geometry, g_optionbase) == (struct Var *)0) { free(geometry); @@ -3296,7 +3296,7 @@ struct Value *stmt_MAT(struct Value *value) if (g_pass == INTERPRET) { Var_destroy(var1); - Var_new(var1, vartype, dim, geometry, optionbase); + Var_new(var1, vartype, dim, geometry, g_optionbase); } } @@ -3529,7 +3529,7 @@ struct Value *stmt_MATINPUT(struct Value *value) if (g_pass == INTERPRET) { Var_destroy(var); - Var_new(var, vartype, dim, geometry, optionbase); + Var_new(var, vartype, dim, geometry, g_optionbase); } } @@ -3859,7 +3859,7 @@ struct Value *stmt_MATREAD(struct Value *value) if (g_pass == INTERPRET) { Var_destroy(var); - Var_new(var, vartype, dim, geometry, optionbase); + Var_new(var, vartype, dim, geometry, g_optionbase); } } @@ -4796,7 +4796,7 @@ struct Value *stmt_OPTIONBASE(struct Value *value) if (g_pass == INTERPRET) { - optionbase = value->u.integer; + g_optionbase = value->u.integer; } Value_destroy(value); |