diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2016-08-03 21:38:50 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2016-08-03 21:38:50 +0300 |
| commit | f591d307d9af95bfa0ccda4d5eb76a674447ba39 (patch) | |
| tree | 65c8e2259634653566fc2c49ec996ff416330361 /interpret.h | |
| parent | 9907a598dca8f129422c42f8c4fa3b4e2c988221 (diff) | |
| download | egawk-f591d307d9af95bfa0ccda4d5eb76a674447ba39.tar.gz egawk-f591d307d9af95bfa0ccda4d5eb76a674447ba39.tar.bz2 egawk-f591d307d9af95bfa0ccda4d5eb76a674447ba39.zip | |
Restore typed regexp code in a new branch.
Diffstat (limited to 'interpret.h')
| -rw-r--r-- | interpret.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interpret.h b/interpret.h index 6b832c16..3bb4532e 100644 --- a/interpret.h +++ b/interpret.h @@ -268,7 +268,7 @@ uninitialized_scalar: r = r->var_value; } - if (r->type == Node_val) + if (r->type == Node_val || r->type == Node_typedregex) UPREF(r); PUSH(r); break; @@ -987,6 +987,8 @@ arrayfor: r = POP_STRING(); unref(m->re_exp); m->re_exp = r; + } else if (m->type == Node_typedregex) { + UPREF(m); } PUSH(m); break; |