[openfirmware] r1528 - cpu/x86/pc/olpc/via
svn at openfirmware.info
svn at openfirmware.info
Wed Dec 2 08:07:28 CET 2009
Author: wmb
Date: 2009-12-02 08:07:27 +0100 (Wed, 02 Dec 2009)
New Revision: 1528
Modified:
cpu/x86/pc/olpc/via/fsupdate.fth
Log:
via/fsupdate.fth - deleted unused (commented out) code for clarity.
Modified: cpu/x86/pc/olpc/via/fsupdate.fth
===================================================================
--- cpu/x86/pc/olpc/via/fsupdate.fth 2009-11-29 20:30:35 UTC (rev 1527)
+++ cpu/x86/pc/olpc/via/fsupdate.fth 2009-12-02 07:07:27 UTC (rev 1528)
@@ -8,59 +8,6 @@
push-hex $number pop-base " Bad number" ?nand-abort
;
-0 [if]
-0 value partition-map-offset
-0 value next-partition-start
-
-0 value partition#
-d# 256 constant /partition-entry
-: partition-adr ( -- adr ) partition# /partition-entry * load-base + ;
-: max-nand-offset ( -- n ) " usable-page-limit" $call-nand /nand-page * ;
-
-: add-partition ( name$ #eblocks -- )
- partition# " max#partitions" $call-nand >= abort" Partition map overflow"
-
- -rot ( #eblocks name$ )
- partition-adr /partition-entry erase ( #eblocks name$ )
- d# 15 min partition-adr swap move ( #eblocks )
- next-partition-start partition-adr d# 16 + l! ( #eblocks )
-
- dup -1 = if ( #eblocks )
- drop max-nand-offset ( last-offset )
- next-partition-start - ( #bytes )
- else
- /nand-block * ( #bytes )
- then ( #bytes )
-
- dup partition-adr d# 24 + l! \ size ( #bytes )
-
- next-partition-start + to next-partition-start ( )
- next-partition-start max-nand-offset > abort" NAND size overflow"
-
- partition# 1+ to partition#
-;
-: start-partition-map ( -- )
- load-base /nand-block h# ff fill
- 0 to partition#
-\ 0 to next-partition-start
- " partition-map-page#" $call-nand /nand-page * to partition-map-offset
-
- partition-map-offset to next-partition-start
- " FIS directory" 1 add-partition
-;
-: write-partition-map ( -- )
- partition-map-offset /nand-page / dup " erase-block" $call-nand
- load-base swap nand-pages/block " write-pages" $call-nand
- nand-pages/block <> abort" Can't write partition map"
- " read-partmap" $call-nand
-;
-
-0 value partition-page-offset
-: map-eblock# ( block# -- block#' ) partition-page-offset + ;
-
-\ XXX need to check for overwriting existing partition map
-[then]
-
0 value last-eblock#
: erase-eblock ( eblock# -- )
\ XXX
@@ -100,21 +47,6 @@
vocabulary nand-commands
also nand-commands definitions
-0 [if]
-: set-partition: ( "partitionid" -- ) \ partitionid is number or name
- safe-parse-word " $set-partition" $call-nand abort" Nonexistent partition#"
-;
-
-: partitions: ( "name" "#eblocks" ... -- )
- start-partition-map
- begin parse-word dup while ( name$ )
- get-hex# add-partition ( )
- repeat ( null$ )
- 2drop
- write-partition-map
-;
-[then]
-
: zblocks: ( "eblock-size" "#eblocks" ... -- )
get-hex# to /nand-block
get-hex# to #image-eblocks
More information about the openfirmware
mailing list