[commit] r1873 - cpu/x86/pc/olpc/via

[repository service]

Author: wmb
Date: Thu Jul 15 19:41:34 2010
New Revision: 1873
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1873

Log:
OLPC XO-1.5 fs-update - commented out some dead code that was trying to implement a possible optimization.  The code was never executed due to a programming error, and probably was not a good idea anyway.

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

Modified: cpu/x86/pc/olpc/via/fsupdate.fth
==============================================================================
--- cpu/x86/pc/olpc/via/fsupdate.fth	Wed Jul 14 23:01:11 2010	(r1872)
+++ cpu/x86/pc/olpc/via/fsupdate.fth	Thu Jul 15 19:41:34 2010	(r1873)
@@ -185,10 +185,10 @@

?get-crc                              ( eblock# hashname$ hash$ r: comprlen )

-   2over  " fa43239bcee7b97ca62f007cc68487560a39e19f74f3dde7486db3f98df8e471" $=  if  ( eblock# hashname$ hash$ r: comprlen)
-      r> skip-zdata                         ( eblock# hashname$ hash$ )
-      2drop 2drop                           ( eblock# )
-   else                                     ( eblock# hashname$ hash$ )
+\  2dup  " fa43239bcee7b97ca62f007cc68487560a39e19f74f3dde7486db3f98df8e471" $=  if  ( eblock# hashname$ hash$ r: comprlen)
+\     r> skip-zdata                         ( eblock# hashname$ hash$ )
+\     2drop 2drop                           ( eblock# )
+\  else                                     ( eblock# hashname$ hash$ )
       r> get-zdata                          ( eblock# hashname$ hash$ )
       ?check-crc                            ( eblock# hashname$ hash$ )

@@ -204,7 +204,7 @@
 \   data-buffer over nand-pages/block *  nand-pages/block  " write-blocks" $call-nand  ( eblock# #written )
 \   nand-pages/block  <>  " Write error" ?nand-abort   ( eblock# )
       swap-buffers                          ( eblock# )
-   then
+\  then

dup to last-eblock#                   ( eblock# )
    show-written                          ( )