349 lines
7.0 KiB
Plaintext
349 lines
7.0 KiB
Plaintext
|
(module
|
||
|
|
(import "env" "print" (func $print (param i32) ))
|
||
|
|
(import "env" "print_str" (func $print_str (param i32 i32) ))
|
||
|
|
(import "env" "console_log" (func $console_log (param i32 i32) ))
|
||
|
|
(import "env" "canvas_fillRect" (func $canvas_fillRect (param i32 i32 i32 i32 i32 i32 i32 i32) ))
|
||
|
|
(import "env" "canvas_fillText" (func $canvas_fillText (param i32 i32 i32 i32 i32 i32 i32 i32 i32 i32) ))
|
||
|
|
(import "env" "box_to_string" (func $box_to_string (param i32) (result i32)))
|
||
|
|
(import "env" "box_print" (func $box_print (param i32) ))
|
||
|
|
(import "env" "box_equals" (func $box_equals (param i32 i32) (result i32)))
|
||
|
|
(import "env" "box_clone" (func $box_clone (param i32) (result i32)))
|
||
|
|
(memory (export "memory") 1)
|
||
|
|
(data (i32.const 4096) "\5f\5f\6d\65\5f\5f")
|
||
|
|
(data (i32.const 4102) "\43\6f\6e\73\6f\6c\65\42\6f\78")
|
||
|
|
(data (i32.const 4121) "\49\6e\74\65\67\65\72\42\6f\78")
|
||
|
|
(data (i32.const 4112) "\53\74\72\69\6e\67\42\6f\78")
|
||
|
|
(global $heap_ptr (mut i32) (i32.const 2048))
|
||
|
|
(func $malloc (param $size i32) (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
(local $aligned_size i32)
|
||
|
|
|
||
|
|
;; Align size to 4-byte boundary
|
||
|
|
local.get $size
|
||
|
|
i32.const 3
|
||
|
|
i32.add
|
||
|
|
i32.const -4
|
||
|
|
i32.and
|
||
|
|
local.set $aligned_size
|
||
|
|
|
||
|
|
;; Get current heap pointer
|
||
|
|
global.get $heap_ptr
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Advance heap pointer by aligned size
|
||
|
|
global.get $heap_ptr
|
||
|
|
local.get $aligned_size
|
||
|
|
i32.add
|
||
|
|
global.set $heap_ptr
|
||
|
|
|
||
|
|
;; Return allocated pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $box_alloc (param $type_id i32) (param $field_count i32) (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
(local $total_size i32)
|
||
|
|
|
||
|
|
;; Calculate total size: header (12) + fields (field_count * 4)
|
||
|
|
local.get $field_count
|
||
|
|
i32.const 4
|
||
|
|
i32.mul
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
local.set $total_size
|
||
|
|
|
||
|
|
;; Allocate memory
|
||
|
|
local.get $total_size
|
||
|
|
call $malloc
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Initialize type_id
|
||
|
|
local.get $ptr
|
||
|
|
local.get $type_id
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize ref_count to 1
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize field_count
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 8
|
||
|
|
i32.add
|
||
|
|
local.get $field_count
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Return box pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $alloc_stringbox (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
|
||
|
|
;; Allocate memory for box
|
||
|
|
i32.const 20
|
||
|
|
call $malloc
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Initialize type_id
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4097
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize ref_count to 1
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize field_count
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 8
|
||
|
|
i32.add
|
||
|
|
i32.const 2
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Return box pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $alloc_integerbox (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
|
||
|
|
;; Allocate memory for box
|
||
|
|
i32.const 16
|
||
|
|
call $malloc
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Initialize type_id
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4098
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize ref_count to 1
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize field_count
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 8
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Return box pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $alloc_boolbox (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
|
||
|
|
;; Allocate memory for box
|
||
|
|
i32.const 16
|
||
|
|
call $malloc
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Initialize type_id
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4099
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize ref_count to 1
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize field_count
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 8
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Return box pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $alloc_databox (result i32)
|
||
|
|
(local $ptr i32)
|
||
|
|
|
||
|
|
;; Allocate memory for box
|
||
|
|
i32.const 16
|
||
|
|
call $malloc
|
||
|
|
local.set $ptr
|
||
|
|
|
||
|
|
;; Initialize type_id
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4101
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize ref_count to 1
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 4
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Initialize field_count
|
||
|
|
local.get $ptr
|
||
|
|
i32.const 8
|
||
|
|
i32.add
|
||
|
|
i32.const 1
|
||
|
|
i32.store
|
||
|
|
|
||
|
|
;; Return box pointer
|
||
|
|
local.get $ptr
|
||
|
|
)
|
||
|
|
(func $main (local $0 i32) (local $1 i32) (local $2 i32) (local $3 i32) (local $4 i32) (local $5 i32) (local $6 i32) (local $7 i32) (local $8 i32) (local $9 i32) (local $10 i32) (local $11 i32) (local $12 i32) (local $13 i32) (local $14 i32) (local $15 i32) (local $16 i32) (local $17 i32) (local $18 i32)
|
||
|
|
nop
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $0
|
||
|
|
local.get $0
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4096
|
||
|
|
i32.store
|
||
|
|
local.get $0
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 6
|
||
|
|
i32.store
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $2
|
||
|
|
local.get $2
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4102
|
||
|
|
i32.store
|
||
|
|
local.get $2
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 10
|
||
|
|
i32.store
|
||
|
|
local.get $2
|
||
|
|
local.set $1
|
||
|
|
local.get $0
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
local.get $1
|
||
|
|
i32.store
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $3
|
||
|
|
local.get $3
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4096
|
||
|
|
i32.store
|
||
|
|
local.get $3
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 6
|
||
|
|
i32.store
|
||
|
|
local.get $3
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.load
|
||
|
|
local.set $4
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $6
|
||
|
|
local.get $6
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4112
|
||
|
|
i32.store
|
||
|
|
local.get $6
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 9
|
||
|
|
i32.store
|
||
|
|
local.get $6
|
||
|
|
local.set $5
|
||
|
|
;; log() implementation for ValueId(4)
|
||
|
|
local.get $4
|
||
|
|
local.get $5
|
||
|
|
call $console_log
|
||
|
|
i32.const 0
|
||
|
|
local.set $7
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $9
|
||
|
|
local.get $9
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4121
|
||
|
|
i32.store
|
||
|
|
local.get $9
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 10
|
||
|
|
i32.store
|
||
|
|
local.get $9
|
||
|
|
local.set $8
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $10
|
||
|
|
local.get $10
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4096
|
||
|
|
i32.store
|
||
|
|
local.get $10
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 6
|
||
|
|
i32.store
|
||
|
|
local.get $10
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.load
|
||
|
|
local.set $11
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $13
|
||
|
|
local.get $13
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4112
|
||
|
|
i32.store
|
||
|
|
local.get $13
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 9
|
||
|
|
i32.store
|
||
|
|
local.get $13
|
||
|
|
local.set $12
|
||
|
|
;; toString() implementation for ValueId(8)
|
||
|
|
local.get $8
|
||
|
|
call $box_to_string
|
||
|
|
local.set $14
|
||
|
|
local.get $12
|
||
|
|
local.get $14
|
||
|
|
i32.add
|
||
|
|
local.set $15
|
||
|
|
;; log() implementation for ValueId(11)
|
||
|
|
local.get $11
|
||
|
|
local.get $15
|
||
|
|
call $console_log
|
||
|
|
i32.const 0
|
||
|
|
local.set $16
|
||
|
|
call $alloc_stringbox
|
||
|
|
local.set $18
|
||
|
|
local.get $18
|
||
|
|
i32.const 12
|
||
|
|
i32.add
|
||
|
|
i32.const 4112
|
||
|
|
i32.store
|
||
|
|
local.get $18
|
||
|
|
i32.const 16
|
||
|
|
i32.add
|
||
|
|
i32.const 9
|
||
|
|
i32.store
|
||
|
|
local.get $18
|
||
|
|
local.set $17
|
||
|
|
local.get $17
|
||
|
|
return
|
||
|
|
)
|
||
|
|
(export "main" (func $main))
|
||
|
|
)
|