Changeset 7359


Ignore:
Timestamp:
Oct 5, 2007, 4:50:15 PM (12 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-lap.lisp

    r7337 r7359  
    14371437      (%function-vector-to-function function-vector))))
    14381438
    1439 ;;; This should probably be called %define-x8664-lap-function...
    14401439(defun %define-x86-lap-function (name forms &optional (bits 0))
     1440  (target-arch-case
     1441   (:x8632
     1442    (%define-x8632-lap-function name forms bits))
     1443   (:x8664
     1444    (%define-x8664-lap-function name forms bits))))
     1445
     1446(defun %define-x8664-lap-function (name forms &optional (bits 0))
    14411447  (let* ((*x86-lap-labels* ())
    14421448         (*x86-lap-constants* ())
Note: See TracChangeset for help on using the changeset viewer.