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

In RECOGNIZE-KNOWN-CALL, reconvert the form if it has an inline expansion or

source transform, even if there is no function-info.
parent d291bac4
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/ir1opt.lisp,v 1.47 1992/07/22 23:22:33 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.48 1992/07/31 17:19:38 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -766,10 +766,11 @@
(when name
(let ((info (info function info name)))
(cond
((and info convert-again
((and convert-again
(or (info function source-transform name)
(info function inline-expansion name)
(and (ir1-attributep (function-info-attributes info)
(and info
(ir1-attributep (function-info-attributes info)
predicate)
(let ((dest (continuation-dest (node-cont call))))
(and dest (not (if-p dest)))))))
......
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