5582ad45c0
- instance_v2 now includes legacy compatibility layer - All interpreter code migrated to use instance_v2 - Added legacy field access methods (get_fields, set_field_legacy, etc.) - Fixed type conversion issues (NyashValue vs SharedNyashBox) - instance.rs still exists but no longer used in interpreter - TODO: Remove instance.rs completely in next phase - TODO: Implement proper SharedNyashBox -> NyashValue conversion 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
242 lines
4.9 KiB
Plaintext
242 lines
4.9 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) "\48\65\6c\6c\6f\20\66\72\6f\6d\20\57\41\53\4d\21")
|
|
(data (i32.const 4112) "\54\68\65\20\61\6e\73\77\65\72\20\69\73\3a\20")
|
|
(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)
|
|
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 16
|
|
i32.store
|
|
local.get $0
|
|
call $print
|
|
i32.const 0
|
|
local.set $1
|
|
i32.const 42
|
|
local.set $2
|
|
call $alloc_stringbox
|
|
local.set $3
|
|
local.get $3
|
|
i32.const 12
|
|
i32.add
|
|
i32.const 4112
|
|
i32.store
|
|
local.get $3
|
|
i32.const 16
|
|
i32.add
|
|
i32.const 15
|
|
i32.store
|
|
local.get $3
|
|
local.get $2
|
|
i32.add
|
|
local.set $4
|
|
local.get $4
|
|
call $print
|
|
local.get $4
|
|
return
|
|
)
|
|
(export "main" (func $main))
|
|
)
|