Changeset 9378


Ignore:
Timestamp:
May 6, 2008, 5:28:23 PM (11 years ago)
Author:
rme
Message:

Update create-x86-function so that it updates the self-reference table
after creating a function for x8632.

File:
1 edited

Legend:

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

    r9160 r9378  
    14131413          constants-vector)))))
    14141414
    1415 #+x8664-target
     1415#+x86-target
    14161416(defun create-x86-function (name frag-list constants bits debug-info)
    14171417  (unless name (setq bits (logior bits (ash -1 $lfbits-noname-bit))))
     
    14351435      (dolist (c constants)
    14361436        (setf (uvref function-vector (decf last)) (car c)))
    1437       (%function-vector-to-function function-vector))))
     1437      #+x8632-target
     1438      (%update-self-references function-vector)
     1439      (function-vector-to-function function-vector))))
    14381440
    14391441(defun %define-x86-lap-function (name forms &optional (bits 0))
Note: See TracChangeset for help on using the changeset viewer.