diff options
| author | john haque <j.eh@mchsi.com> | 2012-04-18 04:53:17 -0500 |
|---|---|---|
| committer | john haque <j.eh@mchsi.com> | 2012-04-18 04:53:17 -0500 |
| commit | c3033f11415c6323ad6b4503c220d20d68c841a3 (patch) | |
| tree | 8833cdfeeacdb20f6eb17965d0b6700cdfde9412 /interpret.h | |
| parent | 07e08a881ae177d3e3b7cfd2c5199443c6db3dd0 (diff) | |
| download | egawk-c3033f11415c6323ad6b4503c220d20d68c841a3.tar.gz egawk-c3033f11415c6323ad6b4503c220d20d68c841a3.tar.bz2 egawk-c3033f11415c6323ad6b4503c220d20d68c841a3.zip | |
Polish array handling code.
Diffstat (limited to 'interpret.h')
| -rw-r--r-- | interpret.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/interpret.h b/interpret.h index 83b908cc..acb8d219 100644 --- a/interpret.h +++ b/interpret.h @@ -521,10 +521,11 @@ mod: break; case Op_store_sub: - /* array[sub] assignment optimization, + /* + * array[sub] assignment optimization, * see awkgram.y (optimize_assignment) */ - t1 = get_array(pc->memory, TRUE); /* array */ + t1 = force_array(pc->memory, TRUE); /* array */ t2 = mk_sub(pc->expr_count); /* subscript */ lhs = assoc_lookup(t1, t2); if ((*lhs)->type == Node_var_array) { @@ -538,7 +539,8 @@ mod: break; case Op_store_var: - /* simple variable assignment optimization, + /* + * simple variable assignment optimization, * see awkgram.y (optimize_assignment) */ |