master: Remove cold-fixup function

The branch "master" has been updated in SBCL:
       via  d482d6751993be2a648d55f36b90b80e572c1889 (commit)
      from  91ab23b309313579a37a2067cc40d61279af17e3 (commit)

- Log -----------------------------------------------------------------
commit d482d6751993be2a648d55f36b90b80e572c1889
Author: Douglas Katzman <[email protected]>
Date:   Sun Apr 12 18:56:15 2026 -0400

    Remove cold-fixup function
    
    It ceased being distinct from fixup-code-object ever since genesis was
    able to emulate (SETF SAP-REF) and some other operations in the host lisp.
---
 src/compiler/generic/genesis.lisp | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 76c321283..e3b6c54bd 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2174,7 +2174,7 @@ core and return a descriptor to it."
       (gethash (descriptor-bits des) *cold-symbols*)
     (declare (type symbol symbol))
     (unless found-p
-      (error "no warm symbol"))
+      (error "no warm symbol for ~S" des))
     symbol))
 
 ;;; like CL:CAR, CL:CDR, and CL:NULL but for cold values
@@ -2411,15 +2411,6 @@ Legal values for OFFSET are -4, -8, -12, ..."
 (defun code-jump-table-words (code)
   (ldb (byte 14 0) (read-bits-wordindexed code (code-header-words code))))
 
-(declaim (ftype (sfunction (descriptor sb-vm:word (or sb-vm:word
-                                                      sb-vm:signed-word)
-                                       keyword keyword)
-                           descriptor)
-                cold-fixup))
-(defun cold-fixup (code-object after-header value kind flavor)
-  (sb-vm:fixup-code-object code-object after-header value kind flavor)
-  code-object)
-
 (defun alien-linkage-table-note-symbol (symbol-name datap)
   "Register a symbol and return its address or index in proto-linkage-table."
   (let ((index
@@ -3041,7 +3032,7 @@ Legal values for OFFSET are -4, -8, -12, ..."
                       '(#xE8 #xE9)))
          (push (list kind offset name) *asm-deferred-fixups*))
         (t
-         (cold-fixup
+         (sb-vm:fixup-code-object
            code-obj offset
            (ecase flavor
              #+linkage-space

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL