Changeset 2963


Ignore:
Timestamp:
May 2, 2012, 1:55:30 AM (2 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.