From 8e9fea934d9e64a317658581ec89aeadad38c7f1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 23 Jul 1993 21:09:27 +0000 Subject: [PATCH] debug-info => debug --- tools/clxcom.lisp | 6 +++--- tools/comcom.lisp | 20 ++++++++++---------- tools/pclcom.lisp | 4 ++-- 3 files changed, 15 insertions(+), 15 deletions(-) diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp index 376969e7d..7412c5154 100644 --- a/tools/clxcom.lisp +++ b/tools/clxcom.lisp @@ -10,14 +10,14 @@ (with-compiler-log-file ("target:compile-clx.log" :optimize - '(optimize (debug-info #-small 2 #+small .5) + '(optimize (debug #-small 2 #+small .5) (speed 2) (inhibit-warnings 2) (safety #-small 1 #+small 0)) :optimize-interface - '(optimize-interface (debug-info .5)) + '(optimize-interface (debug .5)) :context-declarations '(((:and :external :global) - (declare (optimize-interface (safety 2) (debug-info 1)))) + (declare (optimize-interface (safety 2) (debug 1)))) ((:and :external :macro) (declare (optimize (safety 2)))) (:macro (declare (optimize (speed 0)))))) diff --git a/tools/comcom.lisp b/tools/comcom.lisp index 2cb4c56f6..bb8be5a85 100644 --- a/tools/comcom.lisp +++ b/tools/comcom.lisp @@ -21,10 +21,10 @@ :optimize '(optimize (speed 2) (space 2) (inhibit-warnings 2) (safety #+small 0 #-small 1) - (debug-info #+small .5 #-small 2)) + (debug #+small .5 #-small 2)) :optimize-interface '(optimize-interface (safety #+small 1 #-small 2) - (debug-info #+small .5 #-small 2)) + (debug #+small .5 #-small 2)) :context-declarations '(#+small ((:or :macro @@ -32,7 +32,7 @@ "$PRIMITIVE-TRANSLATE-" "$PARSE-")) (declare (optimize (safety 1)))) (:macro (declare (optimize (speed 0)))) - (:external (declare (optimize-interface (safety 2) (debug-info 1)))))) + (:external (declare (optimize-interface (safety 2) (debug 1)))))) (comf "target:compiler/macros" :load *load-stuff*) (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t) @@ -73,7 +73,7 @@ (comf "target:compiler/main") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 1))) + (:optimize '(optimize (debug 2) (safety 1))) (comf "target:compiler/ir1tran") (comf "target:compiler/ir1util") (comf "target:compiler/ir1opt")) @@ -103,7 +103,7 @@ (comf "target:assembly/assemfile" :load *load-stuff*) (with-compilation-unit - (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug-info 1))) + (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 1))) (when (c:target-featurep :pmax) (comf "target:compiler/mips/insts") @@ -274,26 +274,26 @@ (comf "target:compiler/ltv") (comf "target:compiler/gtn") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 1))) + (:optimize '(optimize (debug 2) (safety 1))) (comf "target:compiler/ltn")) (comf "target:compiler/stack") (comf "target:compiler/control") (comf "target:compiler/entry") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 1))) + (:optimize '(optimize (debug 2) (safety 1))) (comf "target:compiler/ir2tran") (comf "target:compiler/generic/vm-ir2tran")) (comf "target:compiler/copyprop") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 1))) + (:optimize '(optimize (debug 2) (safety 1))) (comf "target:compiler/represent")) (comf "target:compiler/generic/vm-tran") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 1))) + (:optimize '(optimize (debug 2) (safety 1))) (comf "target:compiler/pack")) (comf "target:compiler/codegen") (with-compilation-unit - (:optimize '(optimize (debug-info 2) (safety 2))) + (:optimize '(optimize (debug 2) (safety 2))) (comf "target:compiler/debug")) (comf "target:compiler/statcount") (comf "target:compiler/dyncount") diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index 76cb9b2c6..a01046cde 100644 --- a/tools/pclcom.lisp +++ b/tools/pclcom.lisp @@ -23,11 +23,11 @@ (import 'kernel:funcallable-instance-p (find-package "PCL")) (with-compilation-unit - (:optimize '(optimize (debug-info #+small .5 #-small 2) + (:optimize '(optimize (debug #+small .5 #-small 2) (speed 2) (safety #+small 0 #-small 2) (inhibit-warnings 2)) :optimize-interface '(optimize-interface #+small (safety 1)) :context-declarations - '((:external (declare (optimize-interface (safety 2) (debug-info 1)))) + '((:external (declare (optimize-interface (safety 2) (debug 1)))) (:macro (declare (optimize (speed 0)))))) (pcl::compile-pcl)) -- GitLab