Changeset 398

Show
Ignore:
Timestamp:
05/22/07 20:53:15 (16 months ago)
Author:
krobillard
Message:

Thune - parse lit-word now matches opcodes.

Files:
2 modified

Legend:

Unmodified
Added
Removed

  • branches/thune/thread_safe/parse.c

    r392 r398  
    835835                    goto failed; 
    836836                tval = iblk->ptr.cells + pos; 
    837                 if( (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) 
     837                if( (ur_is(tval, UT_WORD) || 
     838                     ur_is(tval, UT_LITWORD) || 
     839                     ur_is(tval, UT_OPCODE)) 
    838840                    && (ur_atom(tval) == ur_atom(rit)) ) 
    839841                { 
    … …  
    980982                { 
    981983                    tval = iblk->ptr.cells + pos; 
    982                     if( ! (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) ) 
     984                    if( ! (ur_is(tval, UT_WORD) || 
     985                           ur_is(tval, UT_LITWORD) || 
     986                           ur_is(tval, UT_OPCODE)) ) 
    983987                        break; 
    984988                    if( ur_atom(tval) != atom ) 

  • trunk/thune/parse.c

    r391 r398  
    836836                    goto failed; 
    837837                tval = iblk->ptr.cells + pos; 
    838                 if( (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) 
     838                if( (ur_is(tval, UT_WORD) || 
     839                     ur_is(tval, UT_LITWORD) || 
     840                     ur_is(tval, UT_OPCODE)) 
    839841                    && (ur_atom(tval) == ur_atom(rit)) ) 
    840842                { 
    … …  
    979981                { 
    980982                    tval = iblk->ptr.cells + pos; 
    981                     if( ! (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) ) 
     983                    if( ! (ur_is(tval, UT_WORD) || 
     984                           ur_is(tval, UT_LITWORD) || 
     985                           ur_is(tval, UT_OPCODE)) ) 
    982986                        break; 
    983987                    if( ur_atom(tval) != atom )