Changeset 2192

Timestamp:

Apr 27, 2011 9:14:27 AM (2 years ago)

Author:

quozl

Message:

OLPC XO-1.5 - fs-update, add support for sparse .zd files, undo -r2186
meaning of zblocks: parameter, split card erasure to avoid card
lockup, and show progress during erasure.

SDHCI - erase blocks, wait for card to leave programming state, and
ignore spurious data timeout.

Files:

• cpu/x86/pc/olpc/via/fsupdate.fth (modified) (4 diffs)
• dev/mmc/sdhci/sdhci.fth (modified) (3 diffs)

cpu/x86/pc/olpc/via/fsupdate.fth

@@ -9 +9 @@
 ;
 
-0 value #eblocks-written
+0 value min-eblock#
+0 value max-eblock#
+
+: written ( eblock# -- )
+   dup
+   max-eblock# max to max-eblock# ( eblock# )
+   min-eblock# min to min-eblock#
+;
 
 : ?all-written  ( -- )
-   #eblocks-written #image-eblocks <>  if
+   max-eblock# 1+ #image-eblocks <>  if
       cr
       red-letters
-      ." WARNING: The file specified " #image-eblocks .d
-      ." chunks but wrote only " #eblocks-written .d ." chunks" cr
+      ." WARNING: The file said highest block " #image-eblocks .d
+      ." but wrote only as high as block " max-eblock# .d cr
+      black-letters
+   then
+   min-eblock# 0 <>  if
+      cr
+      red-letters
+      ." WARNING: The file did not write a zero block, "
+      ." but wrote only as low as block " min-eblock# .d cr
       black-letters
    then
@@ -53 +67 @@
 also nand-commands definitions
 
+\ some cards do not respond in a reasonable time,
+\ some cards lock up and cause a command timeout in get-status,
+\ so split the erase into many parts.
+: erase-blocks
+   [char] ~ emit                        \ visual hint of erase delay
+   #image-eblocks /nand-block h# 200 */ ( #blocks )
+   dup d# 16 / swap                     ( /part #blocks )
+   0 do                                 ( /part )
+      i over " erase-blocks" $call-nand
+      hdd-led-toggle                    \ visual hint of progress
+   dup +loop                            ( /part )
+   drop
+   bs emit space bs emit hdd-led-off    \ visual hint remove
+;
+
+\ : erase-blocks
+\ 0 #image-eblocks /nand-block h# 200 */ " erase-blocks" $call-nand ;
+
 : zblocks:  ( "eblock-size" "#eblocks" ... -- )
    hdd-led-toggle
@@ -58 +90 @@
    get-hex# to /nand-block
    get-hex# to #image-eblocks
+   #image-eblocks to min-eblock#
+   0 to max-eblock#
    " size" $call-nand  #image-eblocks /nand-block um*  d<
    " Image size is larger than output device" ?nand-abort
    #image-eblocks  show-init
-   0 #image-eblocks /nand-block h# 200 */ " erase-blocks" $call-nand
+   erase-blocks
    get-inflater
    \ Separate the two buffers by enough space for both the compressed
@@ -201 +235 @@
 \  then
 
+   dup written                              ( eblock# )
    show-written                             ( )
-   #eblocks-written 1+ to #eblocks-written  ( )
    show-temperature
    hdd-led-toggle

dev/mmc/sdhci/sdhci.fth

@@ -285 +285 @@
 
    allow-timeout?  if      ( isr esr )
-      dup 1 =  if  true to timeout?  2drop exit  then
+      dup 1 =  over h# 10 = or  if  true to timeout?  2drop exit  then
    then                    ( isr esr )
 
@@ -489 +489 @@
 
 0 instance value writing?
-
-: erase-blocks  ( block# #blocks -- ) \ UNTESTED
-   intstat-on
-   dup  0=  if  2drop exit  then
-   1- bounds        ( last first )
-   h# 201a 0 cmd    ( last )   \ CMD32 - R1
-   h# 211a 0 cmd    ( )        \ CMD33 - R1
-   0 h# 261b 0 cmd             \ CMD38 - R1b (wait for busy)
-   intstat-off
-;
 
 \ CMD40 is MMC
@@ -1033 +1023 @@
 
 : detach-sdio-card  ( -- )
+;
+
+: erase-blocks  ( block# #blocks -- )
+   intstat-on
+   dup  0=  if  2drop exit  then
+   1- bounds        ( last first )
+   h# 201a 0 cmd    ( last )   \ CMD32 - R1
+   h# 211a 0 cmd    ( )        \ CMD33 - R1
+   0 h# 261b 0 cmd             \ CMD38 - R1b (wait for busy)
+   true to writing?                  ( )
+   true to allow-timeout?
+   false to timeout?
+   wait-write-done  drop
+   false to allow-timeout?
+   intstat-off
 ;