[openfirmware] r910 - ofw/fs
svn at openfirmware.info
svn at openfirmware.info
Mon Sep 1 23:44:08 CEST 2008
Author: wmb
Date: 2008-09-01 23:44:08 +0200 (Mon, 01 Sep 2008)
New Revision: 910
Modified:
ofw/fs/dropinfs.fth
Log:
dropinfs.fth - fixed the open method so "dir rom:" will work.
Modified: ofw/fs/dropinfs.fth
===================================================================
--- ofw/fs/dropinfs.fth 2008-09-01 21:05:49 UTC (rev 909)
+++ ofw/fs/dropinfs.fth 2008-09-01 21:44:08 UTC (rev 910)
@@ -32,7 +32,9 @@
0 to base-adr
0 to seek-ptr ( )
my-args dup if ( adr len )
- 2dup " \" $= 0= if ( adr len )
+ 2dup " \" $= if ( adr len )
+ 2drop true exit
+ else ( adr len )
over c@ [char] \ = if 1 /string then ( adr' len' )
find-drop-in dup if ( di-adr di-len true )
-rot to image-size to base-adr ( true )
More information about the openfirmware
mailing list