diff options
| -rw-r--r-- | fetch-wasm-instrs.lisp | 2 | ||||
| -rw-r--r-- | 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 |