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

Inhibit loop rotation in functions with NLX targets, since it gets

confusing.  Perhaps we could change CONTROL-ANALYZE-1-FUN to walk
NLX EPs last?
parent a1b0b758
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/control.lisp,v 1.6 1991/11/08 15:28:35 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/control.lisp,v 1.7 1991/11/08 22:20:33 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -53,6 +53,10 @@
;;; numbers. Beats me if this is in general optimal, but it works in simple
;;; cases.
;;;
;;; This optimization is inhibited in functions with NLX EPs, since it is hard
;;; to do this without possibly messing up the special-case walking from NLX
;;; EPs described in CONTROL-ANALYZE-1-FUN.
;;;
(defun find-rotated-loop-head (block)
(declare (type cblock block))
(let* ((num (block-number block))
......@@ -63,7 +67,7 @@
(< (block-number pred) num))
(return pred)))))
(cond
(pred
((and pred (not (environment-nlx-info env)))
(let ((current pred)
(current-num (block-number pred)))
(block DONE
......
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