Remove unused table index from loader

This commit is contained in:
Remko Tronçon 2022-05-23 21:40:42 +02:00
parent 532d9e1f34
commit ce54272eb6
2 changed files with 4 additions and 6 deletions

View file

@ -17,9 +17,8 @@
(import "shell" "key" (func $shell_key (result i32))) (import "shell" "key" (func $shell_key (result i32)))
;; Load a webassembly module. ;; Load a webassembly module.
;; Parameters: memory offset, size, table index where the new module will ;; Parameters: memory offset, size
;; be loaded. (import "shell" "load" (func $shell_load (param i32 i32)))
(import "shell" "load" (func $shell_load (param i32 i32 i32)))
;; Generic signal to shell ;; Generic signal to shell
(import "shell" "call" (func $shell_call)) (import "shell" "call" (func $shell_call))
@ -2192,8 +2191,7 @@
(then (drop (table.grow 0 (ref.func $!) (table.size 0))))) ;; Double size (then (drop (table.grow 0 (ref.func $!) (table.size 0))))) ;; Double size
(call $shell_load (call $shell_load
(i32.const 0x1000 (; = MODULE_HEADER_BASE ;)) (i32.const 0x1000 (; = MODULE_HEADER_BASE ;))
(i32.sub (global.get $cp) (i32.const 0x1000 (; = MODULE_HEADER_BASE ;))) (i32.sub (global.get $cp) (i32.const 0x1000 (; = MODULE_HEADER_BASE ;))))
(global.get $nextTableIndex))
(global.set $nextTableIndex (i32.add (global.get $nextTableIndex) (i32.const 1)))) (global.set $nextTableIndex (i32.add (global.get $nextTableIndex) (i32.const 1))))

View file

@ -132,7 +132,7 @@ class WAForth {
// Loader // Loader
//////////////////////////////////////// ////////////////////////////////////////
load: (offset: number, length: number, index: number) => { load: (offset: number, length: number) => {
let data = new Uint8Array( let data = new Uint8Array(
(this.core!.exports.memory as WebAssembly.Memory).buffer, (this.core!.exports.memory as WebAssembly.Memory).buffer,
offset, offset,