[openfirmware] [commit] r2963 - cpu/arm cpu/mips cpu/ppc cpu/x86 forth/kernel

[repository service]

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