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

Added *assembly-optimize* flag so that we can easily turn this off to

verify optimizer bugs.
parent f5630827
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.12 1991/02/20 14:56:45 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/codegen.lisp,v 1.13 1991/02/26 22:05:27 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -85,6 +85,10 @@ ...@@ -85,6 +85,10 @@
(setf *elsewhere* (make-segment)) (setf *elsewhere* (make-segment))
(undefined-value)) (undefined-value))
(defvar *assembly-optimize* t
"Set to NIL to inhibit assembly-level optimization. For compiler debugging,
rather than policy control.")
;;; Generate-Code -- Interface ;;; Generate-Code -- Interface
;;; ;;;
(defun generate-code (component) (defun generate-code (component)
...@@ -113,10 +117,11 @@ ...@@ -113,10 +117,11 @@
(assemble (*code-segment* nil) (assemble (*code-segment* nil)
(insert-segment *elsewhere*)) (insert-segment *elsewhere*))
(expand-pseudo-instructions *code-segment*) (expand-pseudo-instructions *code-segment*)
(when (policy (lambda-bind (when (and (policy (lambda-bind
(block-home-lambda (block-home-lambda
(block-next (component-head component)))) (block-next (component-head component))))
(or (>= speed cspeed) (>= space cspeed))) (or (>= speed cspeed) (>= space cspeed)))
*assembly-optimize*)
(optimize-segment *code-segment*)) (optimize-segment *code-segment*))
(finalize-segment *code-segment*)) (finalize-segment *code-segment*))
......
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