From 9ca69c02a24815b640804ab50daf261af55124fa Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sat, 12 Mar 2016 10:30:58 -0500 Subject: [PATCH] Fix a few style-warnings --- src/assembly/x86-64/arith.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/assembly/x86-64/arith.lisp b/src/assembly/x86-64/arith.lisp index d916c7c6c..0b88a5764 100644 --- a/src/assembly/x86-64/arith.lisp +++ b/src/assembly/x86-64/arith.lisp @@ -11,6 +11,8 @@ (in-package "SB!VM") +#-sb-assembling ; avoid redefinition warning +(progn (defun !both-fixnum-p (temp x y) (inst mov (reg-in-size temp :dword) (reg-in-size x :dword)) @@ -26,6 +28,7 @@ (reg-in-size y :dword)) (inst test (reg-in-size temp :byte) fixnum-tag-mask)) +) ;;;; addition, subtraction, and multiplication @@ -346,6 +349,7 @@ (inst shr result 56)) (inst pop temp)) ; restore RAX +#-sb-assembling ; avoid redefinition warning (defun emit-foreign-logbitp (index foreign-symbol temp-reg) ; result in Z flag (declare (ignorable temp-reg)) (multiple-value-bind (byte bit) (floor index 8) -- 2.11.4.GIT