Changeset 2963
- Timestamp:
- May 2, 2012 1:55:30 AM (13 months ago)
- Files:
-
- 6 edited
-
cpu/arm/fixvoc.fth (modified) (1 diff)
-
cpu/mips/fixvoc.fth (modified) (1 diff)
-
cpu/ppc/fixvoc.fth (modified) (1 diff)
-
cpu/x86/fixvoc.fth (modified) (1 diff)
-
forth/kernel/forward.fth (modified) (1 diff)
-
forth/kernel/kernel.fth (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
cpu/arm/fixvoc.fth
r2122 r2963 14 14 15 15 : fix-vocabularies ( -- ) 16 [""] <vocabulary> also symbols find previous ( acf true | strfalse )16 " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 17 17 0= abort" Can't find <vocabulary> in symbols" 18 18 dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) -
cpu/mips/fixvoc.fth
r1201 r2963 13 13 14 14 : fix-vocabularies ( -- ) 15 [""] <vocabulary> also symbols find previous ( acf true | strfalse )15 " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 16 16 0= abort" Can't find <vocabulary> in symbols" 17 17 dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) -
cpu/ppc/fixvoc.fth
r461 r2963 14 14 15 15 : fix-vocabularies ( -- ) 16 [""] <vocabulary> also symbols find previous ( acf true | strfalse )16 " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 17 17 0= abort" Can't find <vocabulary> in symbols" 18 18 dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) -
cpu/x86/fixvoc.fth
r1 r2963 12 12 13 13 : fix-vocabularies ( -- ) 14 [""] <vocabulary> also symbols find previous ( acf true | strfalse )14 " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 15 15 0= abort" Can't find <vocabulary> in symbols" 16 16 dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) -
forth/kernel/forward.fth
r1 r2963 260 260 261 261 : compile-t \ name ( -- ) 262 [compile] [""] compile countcompile $compile-t262 [compile] " compile $compile-t 263 263 ; immediate 264 264 \ LICENSE_BEGIN -
forth/kernel/kernel.fth
r2926 r2963 181 181 \ " --> accept a "-terminated string and leave addr len on the stack 182 182 \ "" --> 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 stack185 183 186 184 \ The improvements allow control characters and 8-bit binary numbers to
Note: See TracChangeset
for help on using the changeset viewer.
