X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=050946875f6e3cc5fa2ed195d70a37561b2bc0eb;hb=37d3828773e2f847bb1ed7522b0af4fb8e736fc8;hp=c779a8bf5ee86c349e54415dc22ac0e80f97a0e1;hpb=de6d4c2fc663eb1caeb6b4fd114866413fb56a41;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index c779a8b..0509468 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -2883,8 +2883,8 @@
     (values label (make-ea size
                            :disp (make-fixup nil :code-object label)))))
 
-(defun emit-constant-segment-header (constants optimize)
-  (declare (ignore constants))
+(defun emit-constant-segment-header (segment constants optimize)
+  (declare (ignore segment constants))
   (loop repeat (if optimize 64 16) do (inst byte #x90)))
 
 (defun size-nbyte (size)