Author: quozl Date: Mon Aug 20 12:37:59 2012 New Revision: 3205 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3205
Log: OLPC - fs-update, use zdata file size not spec file size for sanity-check, #12055
Modified: cpu/x86/pc/olpc/via/fsupdate.fth
Modified: cpu/x86/pc/olpc/via/fsupdate.fth ============================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth Mon Aug 20 12:21:04 2012 (r3204) +++ cpu/x86/pc/olpc/via/fsupdate.fth Mon Aug 20 12:37:59 2012 (r3205) @@ -133,6 +133,7 @@ then ( ) ( r: ) ;
+0 2value file-bytes : data: ( "filename" -- ) safe-parse-word ( filename$ ) nb-zd-#sectors -1 <> if ( filename$ ) @@ -146,11 +147,11 @@ drop ." Can't open " image-name$ type cr 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 get-dhex# ( d.size ) @@ -308,8 +309,6 @@
['] 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 t-hms( also nand-commands ( adr len )