[openfirmware] [commit] r2828 - forth/lib

[repository service]

Author: wmb
Date: Mon Jan 16 22:05:18 2012
New Revision: 2828
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2828

Log:
struct.fth - added 2field for creating two fields with the same offset and size

Modified:
   forth/lib/struct.fth

Modified: forth/lib/struct.fth
==============================================================================
--- forth/lib/struct.fth	Mon Jan 16 22:05:14 2012	(r2827)
+++ forth/lib/struct.fth	Mon Jan 16 22:05:18 2012	(r2828)
@@ -6,3 +6,9 @@
    create  over  ,  +
    does> @ +	 	( base -- addr )
 ;
+
+\ Create two name fields with the same offset and size
+: 2field 		\ name  name  ( offset size -- offset' )
+   2dup field drop
+   field
+;