From 6868c58719ef9fdd17ea731f29f74c039ff92ab1 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Fri, 9 Oct 2015 00:12:15 +0300 Subject: [PATCH] ARM64: fix internal error decoding. Check for invalid-arg-count-trap, not invalid-arg-count-error. --- src/code/arm64-vm.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/arm64-vm.lisp b/src/code/arm64-vm.lisp index ed0f4fc71..55da9b354 100644 --- a/src/code/arm64-vm.lisp +++ b/src/code/arm64-vm.lisp @@ -68,7 +68,7 @@ (instruction (sap-ref-32 pc 0)) (error-number (ldb (byte 8 13) instruction))) (declare (type system-area-pointer pc)) - (if (= error-number #.(error-number-or-lose 'invalid-arg-count-error)) + (if (= (ldb (byte 8 5) instruction) invalid-arg-count-trap) (values error-number '(#.arg-count-sc)) (let* ((length (sap-ref-8 pc 4)) (vector (make-array length :element-type '(unsigned-byte 8))) -- 2.11.4.GIT