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? )