From cac10792fcbf46164f605c7a2c9740a2e1eec3fe Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Thu, 24 Apr 2003 13:59:34 +0000 Subject: [PATCH] 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. --- compiler/ir1opt.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 664438361..dd2fd0dd2 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -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 -- GitLab