Skip to content
Snippets Groups Projects
Commit bf842414 authored by ram's avatar ram
Browse files

Changed NOTE-FAILED-OPTIMIZATION to print the transform note explaining what

the transform was trying to do.
parent ceec46cd
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.13 1991/03/18 13:07:07 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.14 1991/10/03 18:31:20 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -32,11 +32,12 @@ ...@@ -32,11 +32,12 @@
(not (function-info-p (combination-kind node)))) (not (function-info-p (combination-kind node))))
(let ((*compiler-error-context* node)) (let ((*compiler-error-context* node))
(dolist (failure failures) (dolist (failure failures)
(let ((what (cdr failure))) (let ((what (cdr failure))
(note (transform-note (car failure))))
(cond (cond
((consp what) ((consp what)
(compiler-note "Unable to optimize because:~%~6T~?" (compiler-note "Unable to ~A because:~%~6T~?"
(first what) (rest what))) note (first what) (rest what)))
((valid-function-use node what ((valid-function-use node what
:argument-test #'types-intersect :argument-test #'types-intersect
:result-test #'values-types-intersect) :result-test #'values-types-intersect)
...@@ -48,9 +49,9 @@ ...@@ -48,9 +49,9 @@
:warning-function #'frob :warning-function #'frob
:error-function #'frob)) :error-function #'frob))
(compiler-note "Unable to optimize due to type uncertainty:~@ (compiler-note "Unable to ~A due to type uncertainty:~@
~{~6T~?~^~&~}" ~{~6T~?~^~&~}"
(messages)))))))))) note (messages))))))))))
;;; FINALIZE-XEP-DEFINITION -- Internal ;;; FINALIZE-XEP-DEFINITION -- Internal
......
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