Skip to content

Commit

Permalink
B-C 1.54_07: Fixed shared xpviv with 5.24 on 32bit
Browse files Browse the repository at this point in the history
We were using the wrong ptr diff
This fixes 5.24 on 32bit.

Also merge more cperl-5.24.0 core improvements.
less compiler warnings, ...
  • Loading branch information
Reini Urban committed Jun 9, 2016
1 parent ba6420f commit bc8fd3c
Show file tree
Hide file tree
Showing 10 changed files with 2,227 additions and 632 deletions.
4 changes: 2 additions & 2 deletions ByteLoader/bytecode.h
Original file line number Diff line number Diff line change
Expand Up @@ -122,7 +122,7 @@ static int bget_swab = 0;
if (BGET_FREAD(&arg, sizeof(type), 1) < 1) { \
Perl_croak(aTHX_ \
"EOF or error while trying to read %lu bytes for %s", \
sizeof(type), STRINGIFY(type)); \
(unsigned long)sizeof(type), STRINGIFY(type)); \
} \
} STMT_END

Expand Down Expand Up @@ -237,7 +237,7 @@ static int bget_swab = 0;
BSET_OBJ_STOREX(sv); \
} STMT_END
#define BSET_gv_fetchpvn_flags(sv, arg) STMT_START { \
int flags = (arg & 0xff80) >> 7; SVTYPE_t type = arg & 0x7f; \
int flags = (arg & 0xff80) >> 7; SVTYPE_t type = (SVTYPE_t)(arg & 0x7f); \
sv = (SV*)gv_fetchpv(savepv(bstate->bs_pv.pv), flags, type); \
BSET_OBJ_STOREX(sv); \
} STMT_END
Expand Down
Loading

0 comments on commit bc8fd3c

Please sign in to comment.