From 5ede24e8464e6646d5c060aece0f83ed3b896256 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 21 Apr 1992 04:13:53 +0000 Subject: [PATCH] Changed describe-component to check the type of (component-info component) instead of assuming that it's going to be an ir2-component. Pass #'make-ir2-block to control-analyze in native-compile-component now that control-analyze takes the constructor function as an argument instead of assuming it should make ir2-blocks. --- compiler/main.lisp | 30 ++++++++++++++++-------------- 1 file changed, 16 insertions(+), 14 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 623856cd5..a8be1bfc9 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.57 1992/04/14 03:01:50 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.58 1992/04/21 04:13:53 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -222,7 +222,7 @@ (ltn-analyze component) (dfo-as-needed component) (maybe-mumble "Control ") - (control-analyze component) + (control-analyze component #'make-ir2-block) (when (ir2-component-values-receivers (component-info component)) (maybe-mumble "Stack ") @@ -507,20 +507,22 @@ (format t "~|~%;;;; Component: ~S~2%" (component-name component)) (print-blocks component) - (format t "~%~|~%;;;; IR2 component: ~S~2%" (component-name component)) + (typecase (component-info component) + (ir2-component + (format t "~%~|~%;;;; IR2 component: ~S~2%" (component-name component)) - (format t "Entries:~%") - (dolist (entry (ir2-component-entries (component-info component))) - (format t "~4TL~D: ~S~:[~; [Closure]~]~%" - (label-id (entry-info-offset entry)) - (entry-info-name entry) - (entry-info-closure-p entry))) + (format t "Entries:~%") + (dolist (entry (ir2-component-entries (component-info component))) + (format t "~4TL~D: ~S~:[~; [Closure]~]~%" + (label-id (entry-info-offset entry)) + (entry-info-name entry) + (entry-info-closure-p entry))) - (terpri) - (pre-pack-tn-stats component *standard-output*) - (terpri) - (print-ir2-blocks component) - (terpri) + (terpri) + (pre-pack-tn-stats component *standard-output*) + (terpri) + (print-ir2-blocks component) + (terpri))) (undefined-value)) -- GitLab