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 @@ ...@@ -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/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 @@ ...@@ -766,10 +766,11 @@
(when name (when name
(let ((info (info function info name))) (let ((info (info function info name)))
(cond (cond
((and info convert-again ((and convert-again
(or (info function source-transform name) (or (info function source-transform name)
(info function inline-expansion name) (info function inline-expansion name)
(and (ir1-attributep (function-info-attributes info) (and info
(ir1-attributep (function-info-attributes info)
predicate) predicate)
(let ((dest (continuation-dest (node-cont call)))) (let ((dest (continuation-dest (node-cont call))))
(and dest (not (if-p dest))))))) (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