cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename DOCONST to DOVAL

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-03-01 14:02:47 +00:00
parent 9f1be9ad2f
commit b372ae3d5f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wipforth.wat
View File

@@ -96,7 +96,7 @@
call $next) call $next)
(func $doconst (func $doval
global.get $cfa global.get $cfa
i32.const 4 i32.const 4
i32.add i32.add
@@ -720,7 +720,7 @@
;; dictionary entries so that the definition of the index isn't too ;; dictionary entries so that the definition of the index isn't too
;; far from its use. ;; far from its use.
;; ;;
;; The exceptions are the special inner interpreters, DOCOL, DOCONST ;; The exceptions are the special inner interpreters, DOCOL, DOVAL
;; and DOVAR, which I've put here in indices 0, 1 and 2 for ;; and DOVAR, which I've put here in indices 0, 1 and 2 for
;; convenience. ;; convenience.
@@ -728,7 +728,7 @@
(table $codewords 100 funcref) (table $codewords 100 funcref)
(elem (i32.const 0x00) $docol) (elem (i32.const 0x00) $docol)
(elem (i32.const 0x01) $doconst) (elem (i32.const 0x01) $doval)
(elem (i32.const 0x02) $dovar) (elem (i32.const 0x02) $dovar)
;; Dictionary time D: ;; Dictionary time D:
@@ -1053,7 +1053,7 @@
"\070BRANCH" "\070BRANCH"
"\37\00\00\00") "\37\00\00\00")
;; Built-in constants and variables ;; Built-in values and variables
(data (i32.const 0x04b8) (data (i32.const 0x04b8)
"\a8\04\00\00" "\a8\04\00\00"
@@ -1063,7 +1063,7 @@
(data (i32.const 0x04cc) (data (i32.const 0x04cc)
"\b8\04\00\00" "\b8\04\00\00"
"\07DOCONST" "\05DOVAL\00\00"
"\01\00\00\00" "\01\00\00\00"
"\01\00\00\00") "\01\00\00\00")