Changeset 9192


Ignore:
Timestamp:
Apr 19, 2008, 2:36:24 AM (11 years ago)
Author:
rme
Message:

Remove %function-vector-to-function and %function-to-function-vector,
which don't do anything on x8632.

Use archmacros function-vector-to-function and function-to-function-vector
(no percent sign) in places they were called.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-def.lisp

    r9146 r9192  
    3434  (single-value-return))
    3535
    36 (defx8632lapfunction %function-vector-to-function ((arg arg_z))
    37   (single-value-return))
    38 
    39 (defx8632lapfunction %function-to-function-vector  ((arg arg_z))
    40   (single-value-return))
    41 
    4236(defx8632lapfunction %function-code-words ((fun arg_z))
    4337  (trap-unless-typecode= fun x8632::subtag-function)
     
    7569(defun %clone-x86-function (proto &rest immediates)
    7670  (declare (dynamic-extent immediates))
    77   (let* ((protov (%function-to-function-vector proto))
     71  (let* ((protov (function-to-function-vector proto))
    7872         (code-words (%function-code-words proto))
    7973         (numimms (length immediates))
     
    8478    (do* ((k code-words (1+ k))
    8579          (imms immediates (cdr imms)))
    86          ((null imms) (%function-vector-to-function newv))
     80         ((null imms) (function-vector-to-function newv))
    8781      (declare (fixnum k) (list imms))
    8882      (setf (%svref newv k) (car imms)))))
     
    9488    (if (= target-words proto-words)
    9589      (progn
    96         (%copy-ivector-to-ivector (%function-to-function-vector proto)
     90        (%copy-ivector-to-ivector (function-to-function-vector proto)
    9791                                  0
    98                                   (%function-to-function-vector target)
     92                                  (function-to-function-vector target)
    9993                                  0
    10094                                  (the fixnum (ash target-words
Note: See TracChangeset for help on using the changeset viewer.