Permalink
Browse files

C: op_pmreplstart is now run-time initialized >= 5.10 (fixes #160)

This should fix most of the t/CORE/re issues, besides remaining
cstring quoting issues.
  • Loading branch information...
Reini Urban
Reini Urban committed Nov 11, 2013
1 parent 152b2d0 commit fff0fb1ba5333c1ac99eb4572ddf8a30d018e54f
Showing with 9 additions and 4 deletions.
  1. +5 −1 Changes
  2. +4 −3 lib/B/C.pm
View
@@ -4,7 +4,7 @@
and worked quite fine with Perl 5.6 and 5.8
1.43 2013-?? rurban
- 5.16 + partial 5.18 support, some more fixes
+ 5.16 + partial 5.18, 5.20 support, some more fixes
* C: Fix -u<module> without file extension.
With hek do not drop FAKE, only for const pv.
@@ -28,6 +28,10 @@
Added support for new PADLIST type since 5.17.4 (with xpadl_id) and 5.17.6 (without)
$^X returns now the real executable name, not just perl or perl.exe
Adjust COW string lengths to hold the COW_REFCNT byte at the end
+ Fix unicode string CUR and LEN (#142, #162)
+ Save HvTOTALKEYS at run-time as max added to the number of run-time added keys (#178)
+ Fix UV uvuformat on 32bit -Duse64bitint (#145)
+ op_pmreplstart is now run-time initialized >= 5.10 (#160)
* perlcc (2.14): new option --dryrun, -v5 does not -Dsp,-v
new option -f passthru to C and CC
* perlcc (2.15): fixed default --spawn: use waitpid which was broken for parallel builds.
View
@@ -12,7 +12,7 @@
package B::C;
use strict;
-our $VERSION = '1.42_52';
+our $VERSION = '1.42_53';
my %debug;
our $check;
my $eval_pvs = '';
@@ -1533,10 +1533,11 @@ sub B::PMOP::save {
"%s, s\\_%x, s\\_%x, %u, 0x%x, {%s}, {%s}",
$op->_save_common, ${ $op->first },
${ $op->last }, ( $ITHREADS ? $op->pmoffset : 0 ),
- $op->pmflags, $replrootfield,
- $replstartfield
+ $op->pmflags, $replrootfield, 'NULL'
)
);
+ $init->add(sprintf("pmop_list[%d].op_pmstashstartu.op_pmreplstart = (OP*)$replstartfield;",
+ $pmopsect->index));
}
elsif ($PERL56) {
# pmdynflags does not exist as B method. It is only used for PMdf_UTF8 dynamically,

0 comments on commit fff0fb1

Please sign in to comment.