Changeset 11348


Ignore:
Timestamp:
Nov 11, 2008, 3:41:55 PM (11 years ago)
Author:
gb
Message:

Call %UPDATE-SELF-REFERENCES in %COPY-FUNCTION (used in trace of gfs).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-def.lisp

    r11152 r11348  
    105105    (loop for k fixnum from code-words below total-words
    106106      do (setf (%svref newv k) (%svref protov k)))
    107     (function-vector-to-function newv)))
     107    (%update-self-references (function-vector-to-function newv))))
    108108
    109109(defun replace-function-code (target proto)
Note: See TracChangeset for help on using the changeset viewer.