From c10134fb2d87749b3433741249b94fdfe1e2e0dd Mon Sep 17 00:00:00 2001 From: Stefan Reinauer Date: Fri, 20 Nov 2009 18:54:38 +0000 Subject: [PATCH] - drop commented out functions, they're in others.fs already - fix another stack diagram typo git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@621 f158a5a8-5612-0410-a976-696ce0be7e32 --- forth/lib/64bit.fs | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/forth/lib/64bit.fs b/forth/lib/64bit.fs index b8ea547..239ddd0 100644 --- a/forth/lib/64bit.fs +++ b/forth/lib/64bit.fs @@ -53,7 +53,7 @@ cell /x = constant 64bit? unaligned-x@ \ for now ; -: x! ( oaddr o -- ) +: x! ( o oaddr -- ) unaligned-x! \ for now ; @@ -65,22 +65,6 @@ cell /x = constant 64bit? x! ; -\ : rx@ ( oaddr - o ) -\ compile? if -\ h# 22e get-token if compile, else execute then -\ else -\ h# 22e get-token drop execute -\ then -\ ; immediate - -\ : rx! ( o oaddr -- ) -\ compile? if -\ h# 22f get-token if compile, else execute then -\ else -\ h# 22f get-token drop execute -\ then -\ ; immediate - : x, ( o -- ) here /x allot x! ;