Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-27 09:59:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove unused base pointers

Browse source
This commit is contained in:
Remko Tronçon 2022-05-27 11:52:09 +02:00
parent 067a12301d
commit 4d0c67f60a
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/waforth.wat
View file

@ -87,8 +87,7 @@
;; MODULE_HEADER_BASE := 0x1000 ;; MODULE_HEADER_BASE := 0x1000
;; RETURN_STACK_BASE := 0x2000 ;; RETURN_STACK_BASE := 0x2000
;; STACK_BASE := 0x10000 ;; STACK_BASE := 0x10000
;; STRINGS_BASE := 0x20000 ;; DATA_SPACE_BASE := 0x20000
;; DICTIONARY_BASE := 0x21000
;; ;;
;; PICTURED_OUTPUT_OFFSET := 0x200 (offset from HERE; filled backward) ;; PICTURED_OUTPUT_OFFSET := 0x200 (offset from HERE; filled backward)
;; WORD_OFFSET := 0x200 (offset from HERE) ;; WORD_OFFSET := 0x200 (offset from HERE)
@ -213,7 +212,7 @@
(i32.store (i32.load (i32.sub (local.get $tos) (i32.const 4))) (i32.store (i32.load (i32.sub (local.get $tos) (i32.const 4)))
(i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8))))) (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8)))))
(local.get $bbtos)) (local.get $bbtos))
(data (i32.const 0x21000 (; = DICTIONARY_BASE ;)) "\00\00\00\00" "\01" "!\00\00" "\10\00\00\00") (data (i32.const 0x21000) "\00\00\00\00" "\01" "!\00\00" "\10\00\00\00")
(elem (i32.const 0x10) $!) (elem (i32.const 0x10) $!)
;; 6.1.0030 ;; 6.1.0030