Changeset 22180 for v6

Show
Ignore:
Timestamp:
09/07/08 16:47:30 (3 months ago)
Author:
ruoso
Message:

[smop] specific test for array iterator...

Location:
v6/smop
Files:
1 added
2 modified

Legend:

Unmodified
Added
Removed

  • v6/smop/CMakeLists.txt

    r22136 r22180  
    145145    test/30_array_map.m0ld 
    146146    test/31_int_postfix_plusplus.m0ld 
     147    test/32_array_iterator.m0ld 
    147148) 
    148149    set(c_file) 

  • v6/smop/src/smop_s1p_map.sm0p

    r22137 r22180  
    4141    my $interpreter; 
    4242 
    43     my $scalar = ¢SMOP__S1P__Scalar; 
    4443 
    45     my $actualcapture = $capture."positional"(0); 
    46     my $lexicalscope = $capture."positional"(1); 
    47     my $outerscopecontainer = $lexicalscope."outer"(); 
    48     my $outerscope = $outerscopecontainer."FETCH"(); 
    49  
    50     my $count = $actualcapture."elems"(); 
    51     my $outerbind = $count."infix:>"(0); 
    52  
    53     my $void; 
    54     my $val; 
    55  
    56     my $container = $lexicalscope."postcircumfix:{ }"("$_"); 
    57  
    58     if $outerbind { goto then } else { goto else }; 
    59     then: 
    60       my $pos = $actualcapture."positional"(0); 
    61       $val = $scalar."new"($pos); 
    62       goto exit; 
    63     else: 
    64       my $item = $outerscope."postcircumfix:{ }"("$_"); 
    65       $val = $item."FETCH"(); 
    66     exit: 
    67       $void = $container."STORE"($val); 
    68       $void = $interpreter."goto"($back); 
     44    my $result; 
     45    my $void = $back."setr"($result); 
     46    $void = $interpreter."goto"($back); 
    6947  }; 
    7048