Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
589c12e0
Commit
589c12e0
authored
Feb 19, 1992
by
wlott
Browse files
Flame out when speed>=brevity if the transform is important.
parent
6b6be557
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ir1opt.lisp
View file @
589c12e0
...
...
@@ -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.4
0
1992/02/1
1 22:47:01 ram
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.4
1
1992/02/1
9 16:15:21 wlott
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -907,7 +907,10 @@
(
let*
((
type
(
transform-type
transform
))
(
fun
(
transform-function
transform
))
(
constrained
(
function-type-p
type
))
(
flame
(
policy
node
(
>
speed
brevity
)))
(
flame
(
if
(
transform-important
transform
)
(
policy
node
(
>=
speed
brevity
))
(
policy
node
(
>
speed
brevity
))))
(
*compiler-error-context*
node
))
(
cond
((
or
(
not
constrained
)
(
valid-function-use
node
type
:strict-result
t
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment