This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d7d85e3
)
Cut-and-pasto in #11298.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 12 Jul 2001 12:46:20 +0000
(12:46 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 12 Jul 2001 12:46:20 +0000
(12:46 +0000)
p4raw-id: //depot/perl@11303
ext/ByteLoader/bytecode.h
patch
|
blob
|
blame
|
history
diff --git
a/ext/ByteLoader/bytecode.h
b/ext/ByteLoader/bytecode.h
index
c88c470
..
ca9509f
100644
(file)
--- a/
ext/ByteLoader/bytecode.h
+++ b/
ext/ByteLoader/bytecode.h
@@
-132,8
+132,8
@@
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)))
+ (PM_SETRE(((
PMOP*)o), (
arg ? \
+ CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)))
#define BSET_newsv(sv, arg) \
STMT_START { \
sv = (arg == SVt_PVAV ? (SV*)newAV() : \