r1399 - cpu/x86/pc/olpc/via ofw/fs/ext2fs

Author: wmb
Date: 2009-10-07 01:56:37 +0200 (Wed, 07 Oct 2009)
New Revision: 1399

Modified:
   cpu/x86/pc/olpc/via/fw.bth
   ofw/fs/ext2fs/dir.fth
   ofw/fs/ext2fs/methods.fth
Log:
OLPC trac 9475 - emacs was crashing when you do a "save-file" due
to an error in the ext2fs implementation of $delete! .

Modified: cpu/x86/pc/olpc/via/fw.bth
===================================================================
--- cpu/x86/pc/olpc/via/fw.bth	2009-10-06 21:49:09 UTC (rev 1398)
+++ cpu/x86/pc/olpc/via/fw.bth	2009-10-06 23:56:37 UTC (rev 1399)
@@ -300,6 +300,9 @@

fload ${BP}/ofw/gui/loadmenu.fth
 fload ${BP}/ofw/gui/insticon.fth
+\ Uninstall the diag menu from the general user interface vector
+\ so exiting from emacs doesn't invoke the diag menu.
+' quit to user-interface
 fload ${BP}/cpu/x86/pc/olpc/via/mfgtest.fth

: screen-#lines  ( -- n )

Modified: ofw/fs/ext2fs/dir.fth
===================================================================
--- ofw/fs/ext2fs/dir.fth	2009-10-06 21:49:09 UTC (rev 1398)
+++ ofw/fs/ext2fs/dir.fth	2009-10-06 23:56:37 UTC (rev 1399)
@@ -365,7 +365,7 @@
    file-handle 0= if  true exit  then

inode# >r
-   file-handle set-inode  if  r> drop true exit  then
+   file-handle set-inode
    file? 0= if  r> drop true exit  then		\ XXX handle symlinks

\ is this the only link?

Modified: ofw/fs/ext2fs/methods.fth
===================================================================
--- ofw/fs/ext2fs/methods.fth	2009-10-06 21:49:09 UTC (rev 1398)
+++ ofw/fs/ext2fs/methods.fth	2009-10-06 23:56:37 UTC (rev 1399)
@@ -43,7 +43,7 @@
    wf-type dir-type <>  if  true exit  then     ( )

inode# >r					\ save parent directory
-   file-handle set-inode  if  r> drop true exit  then
+   file-handle set-inode
    dir? 0= if  r> drop true exit  then

(delete-files)   file-handle if  r> drop true exit  then	\ still some left