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 \