Changeset 22803 for v6

Show
Ignore:
Timestamp:
10/28/08 16:51:42 (2 months ago)
Author:
ruoso
Message:

[smop-XS] a submold can be created inlined in the list of constants...

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • v6/smop/SMOP/t/run_mold.t

    r22802 r22803  
    33# this mold code was brought here from the 23_code.m0ld 
    44# I took the C compiled version and rewritten it. 
    5  
    6 my $submold = SMOP::Mold->create 
    7   (10, 
    8    [ '$OUT','$_','FETCH','back','continuation', 
    9      'goto','lookup','postcircumfix:{ }','print' ], 
    10    59, 
    11    [ 1,11,10,7,1,1,0,1,12,11,2,0,0,1,13,12,2,0,0,1, 
    12      15,10,6,1,0,0,1,16,15,2,0,0,1,14,16,8,1,13,0,1, 
    13      17,9,4,0,0,1,18,17,3,0,0,1,14,9,5,1,18,0,0 ]); 
    14  
    155 
    166my $mold = SMOP::Mold->create 
    … …  
    2313     "ok 2\n","ok 3\n",'outer', 
    2414     'postcircumfix:( )','postcircumfix:{ }','print', 
    25      $submold, 
     15     SMOP::Mold->create 
     16     (10, 
     17      [ '$OUT','$_','FETCH','back','continuation', 
     18        'goto','lookup','postcircumfix:{ }','print' ], 
     19      59, 
     20      [ 1,11,10,7,1,1,0,1,12,11,2,0,0,1,13,12,2,0,0,1, 
     21        15,10,6,1,0,0,1,16,15,2,0,0,1,14,16,8,1,13,0,1, 
     22        17,9,4,0,0,1,18,17,3,0,0,1,14,9,5,1,18,0,0 ]), 
    2623     SMOP::S1P->LexicalPrelude ], 
    2724   146,