[commit] r2820 - forth/lib

[repository service]

Author: wmb
Date: Mon Jan 16 22:04:46 2012
New Revision: 2820
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2820

Log:
cirstack.fth - use unaligned-@ for safety

Modified:
   forth/lib/cirstack.fth

Modified: forth/lib/cirstack.fth
==============================================================================
--- forth/lib/cirstack.fth	Mon Jan 16 22:04:41 2012	(r2819)
+++ forth/lib/cirstack.fth	Mon Jan 16 22:04:46 2012	(r2820)
@@ -87,9 +87,9 @@
 headerless
 \ Implementation factor
 : stack-params  ( stack -- adr limit current )
-   dup /user# + @ /n -      ( stack limit )
-   swap do-buffer           ( limit adr )
-   tuck @                   ( adr limit current )
+   dup  /user# + unaligned-@  /n -  ( stack limit )
+   swap do-buffer                   ( limit adr )
+   tuck @                           ( adr limit current )
 ;
 headers