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