From 629707587ae07f0dc0cd54357a4e78531b3412e9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Remko=20Tron=C3=A7on?= Date: Sun, 15 May 2022 21:01:03 +0200 Subject: [PATCH] Make dictionary entries consistent --- src/waforth.wat | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/waforth.wat b/src/waforth.wat index 66c52c4..140e25e 100644 --- a/src/waforth.wat +++ b/src/waforth.wat @@ -281,7 +281,7 @@ (if (param i32) (result i32) (i32.lt_s (local.tee $c (call $readChar)) (i32.const 0)) (call $fail (i32.const 0x2003C))) ;; missing ')' (br_if $loop (i32.ne (local.get $c) (i32.const 41))))) - (data (i32.const 135228) "0\10\02\00" "\81" (; immediate ;) "(\00\00\15\00\00\00") + (data (i32.const 135228) "0\10\02\00" "\81" (; immediate ;) "(\00\00" "\15\00\00\00") (elem (i32.const 0x15) $paren) ;; 6.1.0090 @@ -759,7 +759,7 @@ (elem (i32.const 0x40) $AND) ;; 6.1.0750 - (data (i32.const 0x218d4) "\c4\18\02\00" "\44" "BASE\00\00\00" "\03\00\00\00" (; pack(PUSH_DATA_ADDRESS_INDEX) ;) "\0a\00\00\00" (; pack(10) ;)) + (data (i32.const 0x218d4) "\c4\18\02\00" "\44" "BASE\00\00\00" "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\0a\00\00\00" (; = pack(10) ;)) (data (i32.const 135820) "\80\12\02\00" "\26" (; HIDDEN ;) "UNUSED\00" "A\00\00\00") ;; 6.1.0760 @@ -1502,7 +1502,7 @@ (elem (i32.const 0x81) $SPACES) ;; 6.1.2250 - (data (i32.const 0x218e8) "\d4\18\02\00" "\45" (; DATA ;) "STATE\00\00" "\03\00\00\00" (; pack(PUSH_DATA_ADDRESS_INDEX) ;) "\00\00\00\00" (; pack(0) ;)) + (data (i32.const 0x218e8) "\d4\18\02\00" "\45" (; DATA ;) "STATE\00\00" "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\00\00\00\00" (; = pack(0) ;)) (data (i32.const 136796) "L\16\02\00" "\26" (; HIDDEN ;) "UNUSED\00" "\82\00\00\00") ;; 6.1.2260