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

When byte-compiling, don't do any inline expansion, and only do ir1 transforms

explicitly annotated as relevant.
parent 17f5d79d
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.59 1993/03/19 17:05:23 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.60 1993/05/11 13:54:57 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -850,7 +850,8 @@
(declare (type combination call))
(let* ((ref (continuation-use (basic-combination-fun call)))
(leaf (when (ref-p ref) (ref-leaf ref)))
(inlinep (if (defined-function-p leaf)
(inlinep (if (and (defined-function-p leaf)
(not *byte-compiling*))
(defined-function-inlinep leaf)
:no-chance)))
(cond
......@@ -1010,7 +1011,11 @@
(policy node (>= speed brevity))
(policy node (> speed brevity))))
(*compiler-error-context* node))
(cond ((or (not constrained)
(cond ((let ((when (transform-when transform)))
(not (or (eq when :both)
(eq when (if *byte-compiling* :byte :native)))))
t)
((or (not constrained)
(valid-function-use node type :strict-result t))
(multiple-value-bind
(severity args)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment