Skip to content
Snippets Groups Projects
Commit 5ede24e8 authored by wlott's avatar wlott
Browse files

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.
parent 6a566350
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment