Skip to content
Snippets Groups Projects
Commit cac10792 authored by gerd's avatar gerd
Browse files

ANSI test fixes, interpreted code.

	* src/compiler/ir1opt.lisp (recognize-known-call): Don't inline if
	*converting-for-interpreter*.  This suppresses inlining when
	generating IR1 for interpretation because no type-checking IR1 is
	generated in this case, and the interpreter, internal-apply-loop
	for instance, doesn't do type checks is some other way either.
parent 6a7f1ea6
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.74 2001/03/04 20:12:17 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.75 2003/04/24 13:59:34 gerd Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -861,7 +861,8 @@
(let* ((ref (continuation-use (basic-combination-fun call)))
(leaf (when (ref-p ref) (ref-leaf ref)))
(inlinep (if (and (defined-function-p leaf)
(not (byte-compiling)))
(not (byte-compiling))
(not *converting-for-interpreter*))
(defined-function-inlinep leaf)
:no-chance)))
(cond
......
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