Changeset 21214

Show
Ignore:
Timestamp:
07/04/08 13:40:26 (5 months ago)
Author:
pmurias
Message:

[sm0p] fixed some bugs

Files:
2 modified

Legend:

Unmodified
Added
Removed

  • misc/sm0p/sm0p.pm

    r21193 r21214  
    118118 
    119119token idconst { 
    120   <idconst_list> { make 'SMOP__ID__' ~ $/ ~ '' } 
     120  <idconst_list> { make 'SMOP__ID__' ~ $<idconst_list> ~ '' } 
    121121} 
    122122 
    … …  
    141141token cint2 { <cint> { make $<cint> ~ '' } } 
    142142token cint { 
    143     <digitsP5> { make $/ ~ '' } 
     143    <digitsP5> { make $<digitsP5> ~ '' } 
    144144} 
    145145 
    … …  
    163163 
    164164token nativeint { 
    165     <digitsP5> { make 'SMOP__NATIVE__int_create(' ~ $/ ~ ')' } 
     165    <digitsP5> { make 'SMOP__NATIVE__int_create(' ~ $<digitsP5> ~ ')' } 
    166166} 
    167167 

  • v6/smop/sm0p.pl

    r21194 r21214  
    4444    my $pid; 
    4545    if ($ENV{SM0P_FASTER}) { 
    46         $pid = open3($writer, $reader, $error, 'perl','-I'.$base.'/../../misc/sm0p', $base.'/../../misc/sm0p/sm0p_with_actions') || die "$@"; 
     46        $pid = open3($writer, $reader, $error, 'perl',"-I$base/../../src/perl6",'-I'.$base.'/../../misc/sm0p', $base.'/../../misc/sm0p/sm0p_with_actions') || die "$@"; 
    4747    } else { 
    4848        $pid = open3($writer, $reader, $error, 'perl', '-I'.$base.'/../v6-KindaPerl6/compiled/perl5-kp6-mp6/lib',$base.'/sm0p/KP6sm0p.pl');