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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Integrate:
[perl5.git]
/
ext
/
ByteLoader
/
bytecode.h
diff --git
a/ext/ByteLoader/bytecode.h
b/ext/ByteLoader/bytecode.h
index
18d2671
..
c8da60d
100644
(file)
--- a/
ext/ByteLoader/bytecode.h
+++ b/
ext/ByteLoader/bytecode.h
@@
-31,7
+31,7
@@
typedef char *pvindex;
#define BGET_PV(arg) STMT_START { \
BGET_U32(arg); \
if (arg) { \
#define BGET_PV(arg) STMT_START { \
BGET_U32(arg); \
if (arg) { \
- New
(666, bstate->bs_pv.xpv_pv, arg, char);
\
+ New
x(bstate->bs_pv.xpv_pv, arg, char);
\
bl_read(bstate->bs_fdata, bstate->bs_pv.xpv_pv, arg, 1); \
bstate->bs_pv.xpv_len = arg; \
bstate->bs_pv.xpv_cur = arg - 1; \
bl_read(bstate->bs_fdata, bstate->bs_pv.xpv_pv, arg, 1); \
bstate->bs_pv.xpv_len = arg; \
bstate->bs_pv.xpv_cur = arg - 1; \
@@
-63,7
+63,7
@@
typedef char *pvindex;
#define BGET_op_tr_array(arg) do { \
unsigned short *ary, len; \
BGET_U16(len); \
#define BGET_op_tr_array(arg) do { \
unsigned short *ary, len; \
BGET_U16(len); \
- New
(666, ary, len, unsigned short);
\
+ New
x(ary, len, unsigned short);
\
BGET_FREAD(ary, sizeof(unsigned short), len); \
arg = (char *) ary; \
} while (0)
BGET_FREAD(ary, sizeof(unsigned short), len); \
arg = (char *) ary; \
} while (0)