[commit] r1821 - cpu/arm

[repository service]

Author: wmb
Date: Wed Jun 16 13:37:51 2010
New Revision: 1821
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1821

Log:
ARM kernel - removed some dead code that was causing overloading of a key kernel value.

Modified:
   cpu/arm/filecode.fth

Modified: cpu/arm/filecode.fth
==============================================================================
--- cpu/arm/filecode.fth	Tue Jun 15 00:08:12 2010	(r1820)
+++ cpu/arm/filecode.fth	Wed Jun 16 13:37:51 2010	(r1821)
@@ -3,12 +3,6 @@

decimal

-\ signed mixed mode addition
-code ln+  ( l n -- l )  \ same as l+ or =
-   pop     r0,sp      
-   add     tos,tos,r0 
-c;
-
 \ &ptr is the address of a pointer.  fetch the pointed-to character and
 \ post-increment the pointer.
 code @c@++  ( &ptr -- char )
@@ -28,13 +22,6 @@
    mov     tos,r2      
 c;

-: cindex  ( adr len char -- [ adr' true ]  | false )
-   false swap 2swap  bounds  ?do  ( false char )
-      dup  i c@  =  if  nip i true rot  leave  then
-   loop                           ( false char  |  adr' true char )
-   drop
-;
-
 [ifdef] notdef
 \ "adr1 len2" is the longest initial substring of the string "adr1 len1"
 \ that does not contain the character "char".  "adr2 len1-len2" is the
@@ -158,28 +145,6 @@
 c;
 [then]

-nuser delimiter
-
-nuser file
-
-:-h struct  ( -- 0 )  00  ;-h
-
-\ header-t (file-field)
-code-field: dofield  ( -- fd+offset )
-   psh     tos,sp      
-   lnk     r0
-   ldr     r0,[r0]    
-   ldr     tos,'user file
-   add     tos,tos,r0 
-c;
-
-:-h file-field-cf  ( -- )  dofield  place-cf-t  ;-h
-
-\ Assembles the code field when metacompiling a field
-:-h file-field  ( "name" offset size -- offset )
-   " file-field-cf"  header-t  over ,-t + ?debug
-;-h
-
 \ LICENSE_BEGIN
 \ Copyright (c) 2006 FirmWorks
 \