r1240 - cpu/x86/pc/olpc/via dev/via/unichrome ofw/fs/ext2fs

Author: wmb
Date: 2009-07-16 21:04:22 +0200 (Thu, 16 Jul 2009)
New Revision: 1240

Modified:
   cpu/x86/pc/olpc/via/devices.fth
   cpu/x86/pc/olpc/via/fw.bth
   dev/via/unichrome/vgamodes.fth
   ofw/fs/ext2fs/dir.fth
   ofw/fs/ext2fs/sb.fth
Log:
Cleaned up stack leftovers and other cruft.

Modified: cpu/x86/pc/olpc/via/devices.fth
===================================================================
--- cpu/x86/pc/olpc/via/devices.fth	2009-07-16 18:59:46 UTC (rev 1239)
+++ cpu/x86/pc/olpc/via/devices.fth	2009-07-16 19:04:22 UTC (rev 1240)
@@ -258,8 +258,6 @@

\needs md5init  fload ${BP}/ofw/ppp/md5.fth                \ MD5 hash

-\ fload ${BP}/dev/geode/acpi.fth           \ Power management
-
 [ifdef] use-ec
 fload ${BP}/dev/olpc/kb3700/ecspi.fth      \ EC chip SPI FLASH access

Modified: cpu/x86/pc/olpc/via/fw.bth
===================================================================
--- cpu/x86/pc/olpc/via/fw.bth	2009-07-16 18:59:46 UTC (rev 1239)
+++ cpu/x86/pc/olpc/via/fw.bth	2009-07-16 19:04:22 UTC (rev 1240)
@@ -278,7 +278,7 @@
   [then]
    then
 ;
-\ warning !
+warning !
 [then]

: (.firmware)  ( -- )

Modified: dev/via/unichrome/vgamodes.fth
===================================================================
--- dev/via/unichrome/vgamodes.fth	2009-07-16 18:59:46 UTC (rev 1239)
+++ dev/via/unichrome/vgamodes.fth	2009-07-16 19:04:22 UTC (rev 1240)
@@ -65,4 +65,4 @@
 : text-mode3  ( -- )
    text-mode3
 ;
-warning on
+warning !

Modified: ofw/fs/ext2fs/dir.fth
===================================================================
--- ofw/fs/ext2fs/dir.fth	2009-07-16 18:59:46 UTC (rev 1239)
+++ ofw/fs/ext2fs/dir.fth	2009-07-16 19:04:22 UTC (rev 1240)
@@ -239,9 +239,11 @@
    symlink?  if                                                 ( )
       linkpath dup cstrlen 2dup >OFW-path ascii \  split-after  ( file$ path$ )
       dup  if                                                   ( file$ path$ )
+         \ Path component is present
          parent-dir @ init-dir  if  4drop true exit  then       ( file$ path$ )
          $chdir  if  2drop true exit  then                      ( file$ )
       else                                                      ( file$ path$ )
+         \ Path component is absent
          2drop current-dir @ init-dir  if  2drop true exit  then ( file$ )
       then                                                       ( file$ )
       dup 0=  if  2drop false exit  then                         ( file$ )

Modified: ofw/fs/ext2fs/sb.fth
===================================================================
--- ofw/fs/ext2fs/sb.fth	2009-07-16 18:59:46 UTC (rev 1239)
+++ ofw/fs/ext2fs/sb.fth	2009-07-16 19:04:22 UTC (rev 1240)
@@ -8,8 +8,6 @@
 1024    constant /super-block
 h# ef53 constant fs-magic

-0 instance partition-offset
-
 0 instance value super-block
 0 instance value gds

@@ -61,8 +59,7 @@
 : do-free   ( adr len -- )  " dma-free" $call-parent  ;

: init-io  ( -- )
-   " offset-low" $call-parent  " offset-high" $call-parent
-   ublock um/mod nip  to partition-offset
+   \ Used to set partition-offset but now unnecessary as parent handles it
 ;

: write-ublocks  ( adr len dev-block# -- error? )