From b56a869eadbd17e1f0a285ae9888485d9de22ca0 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Jun 2024 17:27:31 -0700 Subject: Fix: bug in wasm instrs fetching script --- fetch-wasm-instrs.lisp | 2 +- src/raw-instrs.lisp | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/fetch-wasm-instrs.lisp b/fetch-wasm-instrs.lisp index 677f857..e2cfaec 100644 --- a/fetch-wasm-instrs.lisp +++ b/fetch-wasm-instrs.lisp @@ -28,7 +28,7 @@ (let ((str (trim-junk str))) (ppcre:split ", ?" - (subseq str #.(length "Instruction(") (- (length str) 2))))) + (subseq str #.(length "Instruction(") (- (length str) 1))))) (defun excise-instructions (source) (let* ((start-pos (+ (length +start-instrs-pattern+) diff --git a/src/raw-instrs.lisp b/src/raw-instrs.lisp index dbb830d..879ed7b 100644 --- a/src/raw-instrs.lisp +++ b/src/raw-instrs.lisp @@ -10,7 +10,7 @@ (:INSTR ("block" "Xbt") :CODE (2) :TYPE ((:|t1*|) (:|t2*|))) (:INSTR ("loop" "Xbt") :CODE (3) :TYPE ((:|t1*|) (:|t2*|))) (:INSTR ("if" "Xbt") :CODE (4) :TYPE ((:|t1*| :I32) (:|t2*|))) - (:INSTR ("else") :CODE NIL :TYPE NIL) (:INSTR ("end") :CODE NIL :TYPE NIL) + (:INSTR ("else") :CODE (5) :TYPE NIL) (:INSTR ("end") :CODE (11) :TYPE NIL) (:INSTR ("br" "l") :CODE (12) :TYPE ((:|t1*| :|t*|) (:|t2*|))) (:INSTR ("brif" "l") :CODE (13) :TYPE ((:|t*| :I32) (:|t*|))) (:INSTR ("brtable" "l^*" "l") :CODE (14) :TYPE @@ -518,5 +518,4 @@ (:INSTR ("f64x2.vconvert_low_i32x4_s") :CODE (253 254 1) :TYPE ((:V128) (:V128))) (:INSTR ("f64x2.vconvert_low_i32x4_u") :CODE (253 255 1) :TYPE - ((:V128) (:V128))))) - + ((:V128) (:V128))))) \ No newline at end of file -- cgit v1.2.3