[OpenBIOS] r642 - trunk/openbios-devel/forth/device

[svn at openbios.org]

Author: mcayland
Date: 2009-12-09 19:44:01 +0100 (Wed, 09 Dec 2009)
New Revision: 642

Modified:
   trunk/openbios-devel/forth/device/other.fs
Log:
Correct Forth data stack when the alarm word is used (the implementation is currently missing, but we'll worry about that a bit 
later). This allows us to proceed further with SPARC64 boot.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at siriusit.co.uk>


Modified: trunk/openbios-devel/forth/device/other.fs
===================================================================
--- trunk/openbios-devel/forth/device/other.fs	2009-12-09 01:09:48 UTC (rev 641)
+++ trunk/openbios-devel/forth/device/other.fs	2009-12-09 18:44:01 UTC (rev 642)
@@ -96,6 +96,7 @@
   ;
   
 : alarm    ( xt n -- )
+  2drop
   ;
   
 : user-abort    ( ... -- )  ( R: ... -- )