Changeset 7359 for branches

Timestamp:

Oct 5, 2007, 9:50:15 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

Conditionalize %DEFINE-X86-LAP-FUNCTION on target. Might want to do
this with read-time conditionals later.

File:

• branches/ia32/compiler/X86/x86-lap.lisp (modified) (1 diff)

branches/ia32/compiler/X86/x86-lap.lisp

@@ -1437 +1437 @@
       (%function-vector-to-function function-vector))))
 
-;;; This should probably be called %define-x8664-lap-function...
 (defun %define-x86-lap-function (name forms &optional (bits 0))
+  (target-arch-case
+   (:x8632
+    (%define-x8632-lap-function name forms bits))
+   (:x8664
+    (%define-x8664-lap-function name forms bits))))
+
+(defun %define-x8664-lap-function (name forms &optional (bits 0))
   (let* ((*x86-lap-labels* ())
          (*x86-lap-constants* ())