[openfirmware] [commit] r1821 - cpu/arm
repository service
svn at openfirmware.info
Wed Jun 16 13:37:51 CEST 2010
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 at ++ ( &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
\
More information about the openfirmware
mailing list