diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-21 23:13:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-21 23:13:44 +0000 |
| commit | e357fc912c78f5a5ed09912f6ba95dab73ff4019 (patch) | |
| tree | 05c7ff0dfdfec61650605a61513dd1b2f1ac4159 /ext/ByteLoader/bytecode.h | |
| parent | dd76e73abcd899a61671a2e722b0d74371a359dc (diff) | |
| download | perl-e357fc912c78f5a5ed09912f6ba95dab73ff4019.tar.gz | |
PM_SETRE() fallout.
p4raw-id: //depot/perl@15405
Diffstat (limited to 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 5a779aa0df..be5fddd0c6 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -140,8 +140,10 @@ typedef IV IV64; hv_store((HV*)sv, bstate->bs_pv.xpv_pv, bstate->bs_pv.xpv_cur, arg, 0) #define BSET_pv_free(pv) Safefree(pv.xpv_pv) #define BSET_pregcomp(o, arg) \ - (PM_SETRE(((PMOP*)o), (arg ? \ - CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0))) + STMT_START { \ + PM_SETRE(((PMOP*)o), (arg ? \ + CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)); \ + } STMT_END #define BSET_newsv(sv, arg) \ STMT_START { \ sv = (arg == SVt_PVAV ? (SV*)newAV() : \ |