Changeset 7198

Show
Ignore:
Timestamp:
09/29/05 06:51:11 (3 years ago)
Author:
putter
Message:

PIL/Run/PrimP5.pm: if(0)'ed recent improvements to ++. They don't quite work yet, so lots of tests were failing, making it difficult to see what MM2-transition regressions remain unrepaired. Left a warning message behind.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • perl5/PIL-Run/lib/PIL/Run/PrimP5.pm

    r7191 r7198  
    221221 
    222222MULTI SUB postfix:<++> ($xx) {  
     223 if(0){# XXX 
    223224    my $tmp = $xx; # XXX - use clone() - needs MM2 
    224225    $xx->store( $xx->fetch->increment ); 
    225226    return $tmp; 
    226     #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2 
    227     #p6_set($xx,p6_from_n(p6_to_n($xx)+1));  
    228     #$old 
     227 }else{ 
     228    warn "faking increment\n"; 
     229    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2 
     230    p6_set($xx,p6_from_n(p6_to_n($xx)+1));  
     231    $old 
     232 } 
    229233}; 
    230234MULTI SUB prefix:<++> ($xx)  {  
     235 if(0){# XXX 
    231236    $xx->store( $xx->fetch->increment ); 
    232237    return $xx; 
    233     #p6_set($xx,p6_from_n(p6_to_n($xx)+1))  
     238 }else{ 
     239    warn "faking increment\n"; 
     240    p6_set($xx,p6_from_n(p6_to_n($xx)+1))  
     241 } 
    234242}; 
    235243MULTI SUB postfix:<--> ($xx) {