Skip to content

Commit

Permalink
C: new-cog. Disable -O3 const_strings for curpad syms
Browse files Browse the repository at this point in the history
Fixes -O3 tests: 12
Already fixed before: 138,141
Still failing -O3 regressions: 42,43,74,125,200
  • Loading branch information
Reini Urban committed Nov 22, 2013
1 parent e2391f2 commit 054e96e
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions lib/B/C.pm
Expand Up @@ -5626,7 +5626,7 @@ sub save_context {
$init->add("/* curpad names */");
warn "curpad names:\n" if $verbose;
# Record comppad sv's names, may not be static
local $B::C::pv_copy_on_grow;
local $B::C::const_strings;
#my $svi = $svsect->index;
my $curpad_nam = ( comppadlist->ARRAY )[0]->save('curpad_name');
# XXX from $svi to $svsect->index we have new sv's
Expand All @@ -5635,9 +5635,7 @@ sub save_context {
my $curpad_sym = ( comppadlist->ARRAY )[1]->save('curpad_syms');
my ($inc_hv, $inc_av);
{
#local $B::C::pv_copy_on_grow;
#$B::C::pv_copy_on_grow = 1 if $B::C::ro_inc;
$B::C::const_strings = 1 if $B::C::ro_inc;
local $B::C::const_strings = 1 if $B::C::ro_inc;
warn "\%INC and \@INC:\n" if $verbose;
$init->add('/* %INC */');
inc_cleanup();
Expand Down

0 comments on commit 054e96e

Please sign in to comment.