[OpenBIOS] [commit] r911 - trunk/openbios-devel/forth/bootstrap

[repository service]

Author: mcayland
Date: Sun Oct 17 00:37:31 2010
New Revision: 911
URL: http://tracker.coreboot.org/trac/openbios/changeset/911

Log:
Add Forth words 2>r, 2r> and 2r@ as described in the ANSI Forth core extensions as they are required for OpenSolaris.

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

Modified:
   trunk/openbios-devel/forth/bootstrap/bootstrap.fs

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
==============================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sun Oct 17 00:21:51 2010	(r910)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	Sun Oct 17 00:37:31 2010	(r911)
@@ -404,6 +404,17 @@
 
 : 2rot >r >r 2swap r> r> 2swap ;
 
+\
+\ 7.3.1.4 - return stack
+\
+
+\ Note: these words are not part of the official OF specification, however
+\ they are part of the ANSI DPANS94 core extensions (see section 6.2) and
+\ so this seems an appropriate place for them.
+: 2>r swap >r >r ;
+: 2r> r> r> swap ;
+: 2r@ r> r> 2dup >r >r swap ;
+
 \ 
 \ 7.3.2.1 - single precision integer arithmetic (part 1)
 \