From 147cf62ce8ef093693f09ac7cf01bfd3f95533cb Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 11 May 1993 14:06:41 +0000
Subject: [PATCH] Pass in the code length, since we need to finialize assembly
 earlier. byte-xep => byte-function

---
 compiler/generic/core.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/core.lisp b/compiler/generic/core.lisp
index 9169d5c26..f3f0e3858 100644
--- a/compiler/generic/core.lisp
+++ b/compiler/generic/core.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.21 1992/12/17 09:27:11 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.22 1993/05/11 14:06:41 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -190,14 +190,14 @@
 
 ;;; MAKE-CORE-BYTE-COMPONENT -- Interface.
 ;;;
-(defun make-core-byte-component (segment constants xeps object)
+(defun make-core-byte-component (segment length constants xeps object)
   (declare (type new-assem:segment segment)
+	   (type index length)
 	   (type vector constants)
 	   (type list xeps)
 	   (type core-object object))
   (without-gcing
     (let* ((num-constants (length constants))
-	   (length (byte-output-length segment))
 	   (code-obj (%primitive allocate-code-object
 				 (the index (1+ num-constants))
 				 length))
@@ -216,7 +216,7 @@
 
       (dolist (noise xeps)
 	(let ((xep (cdr noise)))
-	  (setf (byte-xep-component xep) code-obj)
+	  (setf (byte-function-component xep) code-obj)
 	  (note-function (lambda-info (car noise))
 			 (make-byte-compiled-function xep)
 			 object)))
-- 
GitLab