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