[openfirmware] r1399 - cpu/x86/pc/olpc/via ofw/fs/ext2fs
svn at openfirmware.info
svn at openfirmware.info
Wed Oct 7 01:56:37 CEST 2009
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
More information about the openfirmware
mailing list