Changeset 3205

Timestamp:

Aug 20, 2012 12:37:59 PM (9 months ago)

Author:

quozl

Message:

OLPC - fs-update, use zdata file size not spec file size for sanity-check, #12055

File:

• cpu/x86/pc/olpc/via/fsupdate.fth (modified) (3 diffs)

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

@@ -134 +134 @@
 ;
 
+0 2value file-bytes
 : data:  ( "filename" -- )
    safe-parse-word            ( filename$ )
@@ -147 +148 @@
       true " " ?nand-abort
    then  to filefd            ( )
+   filefd file-size " Can't size file" ?nand-abort  to file-bytes
    linefeed filefd force-line-delimiter
    true to secure-fsupdate?
 ;
 
-0 2value file-bytes
 : size:  ( "bytes" -- )
    ?compare-spec-line
@@ -308 +309 @@
 
    ['] open-nand  catch  ?dup  if  .error  security-failure  then  ( adr len )
-
-   [ also nand-commands ] dup s>d to file-bytes [ previous ]
 
 \  clear-context  nand-commands