From e487149c2ad2be5d686447725a0982ef562071ac Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 20 Mar 1991 03:01:09 +0000 Subject: [PATCH] Pass the trace table returned by generate-code on into fasl-dump-component or make-core-component. --- compiler/main.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 3320c48e4..365737820 100644 --- a/compiler/main.lisp +++ b/compiler/main.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/main.lisp,v 1.34 1991/03/12 16:44:05 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.35 1991/03/20 03:01:09 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -231,7 +231,9 @@ (describe-component component *compiler-trace-output*)) (maybe-mumble "Code ") - (let ((length (generate-code component))) + (multiple-value-bind + (length trace-table) + (generate-code component) (when *compiler-trace-output* (format *compiler-trace-output* @@ -248,10 +250,12 @@ (etypecase object (fasl-file (maybe-mumble "FASL") - (fasl-dump-component component *code-segment* length object)) + (fasl-dump-component component *code-segment* + length trace-table object)) (core-object (maybe-mumble "Core") - (make-core-component component *code-segment* length object)) + (make-core-component component *code-segment* + length trace-table object)) (null)) (nuke-segment *code-segment*))) -- GitLab