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