diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2011-01-30 21:55:59 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2011-01-30 21:55:59 +0200 |
| commit | 318b7ac345d0e78502ac0674a8ebb467997174f3 (patch) | |
| tree | d21662d1435c3c768cf2d2a2cc9ee7114912d9de /eval.c | |
| parent | a7dd34e347fecd3a09be19c9c2b9fe99e1bbbcd7 (diff) | |
| download | egawk-318b7ac345d0e78502ac0674a8ebb467997174f3.tar.gz egawk-318b7ac345d0e78502ac0674a8ebb467997174f3.tar.bz2 egawk-318b7ac345d0e78502ac0674a8ebb467997174f3.zip | |
Add isarray built-in function.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -351,6 +351,7 @@ static struct optypetab { { "Op_func_call", NULL }, { "Op_indirect_func_call", NULL }, { "Op_push", NULL }, + { "Op_push_arg", NULL }, { "Op_push_i", NULL }, { "Op_push_re", NULL }, { "Op_push_array", NULL }, @@ -1700,6 +1701,7 @@ top: break; case Op_push: + case Op_push_arg: { NODE *save_symbol; int isparam = FALSE; @@ -1739,9 +1741,7 @@ top: break; case Node_var_array: - if (! do_posix - && pc->nexti->opcode == Op_builtin - && pc->nexti->builtin == do_length) /* length(array) */ + if (pc->opcode == Op_push_arg) PUSH(m); else fatal(_("attempt to use array `%s' in a scalar context"), |