From 3038d456d3998a20164c80cd39a05b6734288342 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 2 Nov 1994 04:12:17 +0000
Subject: [PATCH] Don't enhance safety under :small anymore except for ir1tran
 and debug. Debug info is still selectively enhanced.

---
 tools/comcom.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index 51342f91a..f65f1afcb 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -70,8 +70,11 @@
 (comf "target:compiler/main")
 
 (with-compilation-unit
-    (:optimize '(optimize (debug 2) (safety 1)))
-  (comf "target:compiler/ir1tran")
+    (:optimize '(optimize (safety 1)))
+  (comf "target:compiler/ir1tran"))
+
+(with-compilation-unit
+    (:optimize '(optimize (debug 2)))
   (comf "target:compiler/ir1util")
   (comf "target:compiler/ir1opt"))
 
@@ -141,22 +144,22 @@
 (comf "target:compiler/ltv")
 (comf "target:compiler/gtn")
 (with-compilation-unit
-    (:optimize '(optimize (debug 2) (safety 1)))
+    (:optimize '(optimize (debug 2)))
   (comf "target:compiler/ltn"))
 (comf "target:compiler/stack")
 (comf "target:compiler/control")
 (comf "target:compiler/entry")
 (with-compilation-unit
-    (:optimize '(optimize (debug 2) (safety 1)))
+    (:optimize '(optimize (debug 2)))
   (comf "target:compiler/ir2tran")
   (comf "target:compiler/generic/vm-ir2tran"))
 (comf "target:compiler/copyprop")
 (with-compilation-unit
-    (:optimize '(optimize (debug 2) (safety 1)))
+    (:optimize '(optimize (debug 2)))
   (comf "target:compiler/represent"))
 (comf "target:compiler/generic/vm-tran")
 (with-compilation-unit
-    (:optimize '(optimize (debug 2) (safety 1)))
+    (:optimize '(optimize (debug 2)))
   (comf "target:compiler/pack"))
 (comf "target:compiler/codegen")
 (with-compilation-unit
-- 
GitLab