Author: quozl Date: Wed May 2 01:55:30 2012 New Revision: 2963 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2963
Log: kernel - finish removal of [""] started in svn 2899
Modified: cpu/arm/fixvoc.fth cpu/mips/fixvoc.fth cpu/ppc/fixvoc.fth cpu/x86/fixvoc.fth forth/kernel/forward.fth forth/kernel/kernel.fth
Modified: cpu/arm/fixvoc.fth ============================================================================== --- cpu/arm/fixvoc.fth Tue May 1 06:11:40 2012 (r2962) +++ cpu/arm/fixvoc.fth Wed May 2 01:55:30 2012 (r2963) @@ -13,7 +13,7 @@ ;
: fix-vocabularies ( -- ) - [""] <vocabulary> also symbols find previous ( acf true | str false ) + " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 0= abort" Can't find <vocabulary> in symbols" dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) dup first-occurrence@ ( acf occurrence )
Modified: cpu/mips/fixvoc.fth ============================================================================== --- cpu/mips/fixvoc.fth Tue May 1 06:11:40 2012 (r2962) +++ cpu/mips/fixvoc.fth Wed May 2 01:55:30 2012 (r2963) @@ -12,7 +12,7 @@ ;
: fix-vocabularies ( -- ) - [""] <vocabulary> also symbols find previous ( acf true | str false ) + " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 0= abort" Can't find <vocabulary> in symbols" dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) dup first-occurrence@ ( acf occurrence )
Modified: cpu/ppc/fixvoc.fth ============================================================================== --- cpu/ppc/fixvoc.fth Tue May 1 06:11:40 2012 (r2962) +++ cpu/ppc/fixvoc.fth Wed May 2 01:55:30 2012 (r2963) @@ -13,7 +13,7 @@ ;
: fix-vocabularies ( -- ) - [""] <vocabulary> also symbols find previous ( acf true | str false ) + " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 0= abort" Can't find <vocabulary> in symbols" dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) dup first-occurrence@ ( acf occurrence )
Modified: cpu/x86/fixvoc.fth ============================================================================== --- cpu/x86/fixvoc.fth Tue May 1 06:11:40 2012 (r2962) +++ cpu/x86/fixvoc.fth Wed May 2 01:55:30 2012 (r2963) @@ -11,7 +11,7 @@ ;
: fix-vocabularies ( -- ) - [""] <vocabulary> also symbols find previous ( acf true | str false ) + " <vocabulary>" also symbols $find previous ( acf true | adr len false ) 0= abort" Can't find <vocabulary> in symbols" dup resolution@ >r ( acf ) ( Return stack: <vocabulary>-adr ) dup first-occurrence@ ( acf occurrence )
Modified: forth/kernel/forward.fth ============================================================================== --- forth/kernel/forward.fth Tue May 1 06:11:40 2012 (r2962) +++ forth/kernel/forward.fth Wed May 2 01:55:30 2012 (r2963) @@ -259,7 +259,7 @@ \ compile a reference to it. The STRING bar is stored within foo
: compile-t \ name ( -- ) - [compile] [""] compile count compile $compile-t + [compile] " compile $compile-t ; immediate \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks
Modified: forth/kernel/kernel.fth ============================================================================== --- forth/kernel/kernel.fth Tue May 1 06:11:40 2012 (r2962) +++ forth/kernel/kernel.fth Wed May 2 01:55:30 2012 (r2963) @@ -180,8 +180,6 @@ \ ," --> accept a "-terminated string and emplace it. \ " --> accept a "-terminated string and leave addr len on the stack \ "" --> accept a blank delimited string and leave it's address on the stac -\ [""]--> accept a blank delimited string and emplace it. -\ At run time, leave it's address on the stack
\ The improvements allow control characters and 8-bit binary numbers to \ be embedded into string literals. This is similar in principle to the