Changeset 2963


Ignore:
Timestamp:
May 1, 2012, 11:55:30 PM (3 years ago)
Author:
quozl
Message:

kernel - finish removal of [""] started in svn 2899

Files:
6 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/fixvoc.fth

    r2122 r2963  
    1414
    1515: fix-vocabularies  ( -- )
    16    [""] <vocabulary>  also symbols  find   previous  ( acf true | str false )
     16   " <vocabulary>"  also symbols  $find   previous  ( acf true | adr len false )
    1717   0= abort" Can't find <vocabulary> in symbols"
    1818   dup resolution@ >r               ( acf )  ( Return stack: <vocabulary>-adr )
  • cpu/mips/fixvoc.fth

    r1201 r2963  
    1313
    1414: fix-vocabularies  ( -- )
    15    [""] <vocabulary>  also symbols  find   previous  ( acf true | str false )
     15   " <vocabulary>"  also symbols  $find   previous  ( acf true | adr len false )
    1616   0= abort" Can't find <vocabulary> in symbols"
    1717   dup resolution@ >r               ( acf )  ( Return stack: <vocabulary>-adr )
  • cpu/ppc/fixvoc.fth

    r461 r2963  
    1414
    1515: fix-vocabularies  ( -- )
    16    [""] <vocabulary>  also symbols  find   previous  ( acf true | str false )
     16   " <vocabulary>"  also symbols  $find   previous  ( acf true | adr len false )
    1717   0= abort" Can't find <vocabulary> in symbols"
    1818   dup resolution@ >r               ( acf )  ( Return stack: <vocabulary>-adr )
  • cpu/x86/fixvoc.fth

    r1 r2963  
    1212
    1313: fix-vocabularies  ( -- )
    14    [""] <vocabulary>  also symbols  find   previous  ( acf true | str false )
     14   " <vocabulary>"  also symbols  $find   previous  ( acf true | adr len false )
    1515   0= abort" Can't find <vocabulary> in symbols"
    1616   dup resolution@ >r               ( acf )  ( Return stack: <vocabulary>-adr )
  • forth/kernel/forward.fth

    r1 r2963  
    260260
    261261: compile-t  \ name  ( -- )
    262    [compile] [""]  compile count  compile $compile-t
     262   [compile] "  compile $compile-t
    263263; immediate
    264264\ LICENSE_BEGIN
  • forth/kernel/kernel.fth

    r2926 r2963  
    181181\ "   --> accept a "-terminated string and leave addr len on the stack
    182182\ ""  --> accept a blank delimited string and leave it's address on the stac
    183 \ [""]--> accept a blank delimited string and emplace it.
    184 \         At run time, leave it's address on the stack
    185183
    186184\  The improvements allow control characters and 8-bit binary numbers to
Note: See TracChangeset for help on using the changeset viewer.