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

Improve documentation structure

Browse source
This commit is contained in:
Remko Tronçon 2022-10-02 20:57:24 +02:00
parent f0ceb05323
commit 9b2e696e5e
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/waforth.wat
View file

@ -180,20 +180,6 @@
(unreachable)) (unreachable))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Function types
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; A regular compiled word is a function with only the
;; top-of-stack pointer as parameter (and returns the new top-of-stack pointer)
;; Arguments are passed via the stack.
(type $word (func (param i32) (result i32)))
;; Words with the 'data' flag set also get a pointer to data passed
;; as second parameter.
(type $dataWord (func (param i32) (param i32) (result i32)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Function table ;; Function table
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -218,6 +204,18 @@
;; END_DO_INDEX := 9 ;; END_DO_INDEX := 9
(table (export "table") 0xbf funcref) (table (export "table") 0xbf funcref)
;; The function table contains 2 type of entries for: entries for
;; regular compiled words, and entries for data words.
;; A regular compiled word is a function with only the
;; top-of-stack pointer as parameter (and returns the new top-of-stack pointer)
;; Arguments are passed via the stack.
(type $word (func (param i32) (result i32)))
;; Words with the 'data' flag set also get a pointer to data passed
;; as second parameter.
(type $dataWord (func (param i32) (param i32) (result i32)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Data ;; Data
@ -2379,7 +2377,7 @@
(local.get $tos)) (local.get $tos))
(data (i32.const 0x20ac0) "\b4\0a\02\00" "\01" "] " "\be\00\00\00") (data (i32.const 0x20ac0) "\b4\0a\02\00" "\01" "] " "\be\00\00\00")
(elem (i32.const 0xbe) $right-bracket) (elem (i32.const 0xbe) $right-bracket)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Interpreter state ;; Interpreter state