[openfirmware] [commit] r2915 - forth/kernel

[repository service]

Author: wmb
Date: Sat Mar 24 20:20:59 2012
New Revision: 2915
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2915

Log:
Added le-x, and be-x, for 64-bit machines.

Modified:
   forth/kernel/endian.fth

Modified: forth/kernel/endian.fth
==============================================================================
--- forth/kernel/endian.fth	Thu Mar 22 02:13:14 2012	(r2914)
+++ forth/kernel/endian.fth	Sat Mar 24 20:20:59 2012	(r2915)
@@ -33,6 +33,9 @@
 64\ : be-x@   ( a -- l )   dup la1+ be-l@ swap be-l@ lxjoin  ;
 64\ : le-x!   ( l a -- )   >r xlsplit r@ la1+ le-l! r> le-l!  ;
 64\ : be-x!   ( l a -- )   >r xlsplit r@ be-l! r> la1+ be-l!  ;
+64\ : le-x,   ( x -- )     here /x allot le-x!  ;
+64\ : be-x,   ( x -- )     here /x allot be-x!  ;
+
 \ LICENSE_BEGIN
 \ Copyright (c) 2006 FirmWorks
 \