[openfirmware] [commit] r1990 - cpu/arm/marvell
repository service
svn at openfirmware.info
Mon Oct 25 14:34:04 CEST 2010
Author: wmb
Date: Mon Oct 25 14:34:03 2010
New Revision: 1990
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1990
Log:
Marvell TIM image builder - added "anonymous:" command for including headerless images at specific locations.
Modified:
cpu/arm/marvell/tim.fth
Modified: cpu/arm/marvell/tim.fth
==============================================================================
--- cpu/arm/marvell/tim.fth Mon Oct 18 06:06:51 2010 (r1989)
+++ cpu/arm/marvell/tim.fth Mon Oct 25 14:34:03 2010 (r1990)
@@ -27,7 +27,8 @@
then ( )
;
-: hex, ( -- ) safe-parse-word $hnumber abort" Bad hex number" l, ;
+: get-hex ( -- ) safe-parse-word $hnumber abort" Bad hex number" ;
+: hex, ( -- ) get-hex l, ;
: get-word ( -- adr len ) safe-parse-word ;
: get-filename ( -- adr len ) 0 parse ;
@@ -100,16 +101,18 @@
: $file-size ( adr len -- size )
$read-open ifd @ fsize ifd @ fclose
;
+0 value image-offset
: place-image ( adr len -- size )
$read-open ifd @ fsize ( size )
- here 8 - l@ ( size offset )
+ image-offset ( size offset )
2dup + ?realloc-image ( size offset )
image-adr + over ( size adr size )
ifd @ fgets ( size read-size )
over <> abort" Read failed" ( size )
ifd @ fclose ( size )
\ h# 1000 round-up
- 4 round-up
+ h# 800 round-up
+\ 4 round-up
;
: place-hash \ XXX need to implement non-null hash info
d# 10 0 do 0 l, loop
@@ -118,9 +121,14 @@
: start-image ( adr len -- )
+#images
get-word 2dup 4c, set-last-image
- hex, \ Flash offset
+ get-hex dup to image-offset l, \ Flash offset
hex, \ Load address
;
+: anonymous: \ flash-offset filename
+ get-hex to image-offset
+ get-filename place-image drop
+;
+
: image: \ name flash-offset mem-load-addr filename
start-image
get-filename place-image l,
More information about the openfirmware
mailing list