From 0cccfcfc103fd172ead2503eac8dcf51334108cd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Remko=20Tron=C3=A7on?= Date: Sun, 29 May 2022 20:27:20 +0200 Subject: [PATCH] Remove wordBase function --- src/waforth.wat | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/waforth.wat b/src/waforth.wat index cef61e1..ffdec48 100644 --- a/src/waforth.wat +++ b/src/waforth.wat @@ -1762,7 +1762,9 @@ (call $skip (local.get $delimiter)) (local.set $addr (local.set $len (call $parse (local.get $delimiter)))) (memory.copy - (i32.add (local.tee $wordBase (call $wordBase)) (i32.const 1)) + (i32.add + (local.tee $wordBase (i32.add (global.get $here) (i32.const 0x200 (; = WORD_OFFSET ;)))) + (i32.const 1)) (local.get $addr) (local.get $len)) (i32.store8 (local.get $wordBase) (local.get $len)) @@ -2699,9 +2701,6 @@ (br_if $loop (local.get $entryP))) (i32.const 0) (i32.const 0)) - (func $wordBase (result i32) - (i32.add (global.get $here) (i32.const 0x200 (; = WORD_OFFSET ;)))) - (func $aligned (param $addr i32) (result i32) (i32.and (i32.add (local.get $addr) (i32.const 3))