From f2b57ea6118b5503fe87c1e9c4c735d6a1b34b82 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 26 Feb 1991 22:05:27 +0000
Subject: [PATCH] Added *assembly-optimize* flag so that we can easily turn
 this off to verify optimizer bugs.

---
 compiler/codegen.lisp | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/compiler/codegen.lisp b/compiler/codegen.lisp
index cc4e8e6fa..f8584bef6 100644
--- a/compiler/codegen.lisp
+++ b/compiler/codegen.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (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 @@
   (setf *elsewhere* (make-segment))
   (undefined-value))
 
+(defvar *assembly-optimize* t
+  "Set to NIL to inhibit assembly-level optimization.  For compiler debugging,
+  rather than policy control.")
+
 ;;; Generate-Code  --  Interface
 ;;;
 (defun generate-code (component)
@@ -113,10 +117,11 @@
   (assemble (*code-segment* nil)
     (insert-segment *elsewhere*))
   (expand-pseudo-instructions *code-segment*)
-  (when (policy (lambda-bind
-		 (block-home-lambda
-		  (block-next (component-head component))))
-		(or (>= speed cspeed) (>= space cspeed)))
+  (when (and (policy (lambda-bind
+		      (block-home-lambda
+		       (block-next (component-head component))))
+		     (or (>= speed cspeed) (>= space cspeed)))
+	     *assembly-optimize*)
     (optimize-segment *code-segment*))
   (finalize-segment *code-segment*))
 
-- 
GitLab