[openfirmware] r1240 - cpu/x86/pc/olpc/via dev/via/unichrome ofw/fs/ext2fs
svn at openfirmware.info
svn at openfirmware.info
Thu Jul 16 21:04:23 CEST 2009
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? )
More information about the openfirmware
mailing list