/[cmucl]/src/tools/comcom.lisp
ViewVC logotype

Diff of /src/tools/comcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by ram, Wed Apr 10 01:18:13 1991 UTC revision 1.16 by ram, Tue Apr 23 13:43:31 1991 UTC
# Line 16  Line 16 
16            old-c::defstruct-slot-description)            old-c::defstruct-slot-description)
17          "C")          "C")
18    
19  (with-compiler-log-file ("target:compile-compiler.log")  (with-compiler-log-file
20        ("target:compile-compiler.log"
21  (declaim (optimize (speed 2) (space 2) (inhibit-warnings 2)))       :optimize
22         '(optimize (speed 2) (space 2) (inhibit-warnings 2)
23                    (safety #+small 0 #-small 1)
24                    (debug-info #+small 1 #-small 2))
25         :optimize-interface
26         '(optimize-interface (safety #+small 1 #-small 2)
27                              (debug-info 1))
28         :context-declarations
29         '(#+small
30           ((:or :macro
31                 (:match "$SOURCE-TRANSFORM-" "$IR1-CONVERT-"
32                         "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
33            (declare (optimize (safety 1))))
34           (:external (declare (optimize-interface (safety 2))))))
35    
36  (comf "target:compiler/macros" :load *load-stuff*)  (comf "target:compiler/macros" :load *load-stuff*)
37  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
# Line 53  Line 66 
66  (comf "target:compiler/generic/vm-fndb")  (comf "target:compiler/generic/vm-fndb")
67  (comf "target:compiler/main")  (comf "target:compiler/main")
68    
69  (comf "target:compiler/ir1tran")  (with-compilation-unit
70  (comf "target:compiler/ir1util")      (:optimize '(optimize (debug-info 2) (safety 1)))
71  (comf "target:compiler/ir1opt")    (comf "target:compiler/ir1tran")
72      (comf "target:compiler/ir1util")
73      (comf "target:compiler/ir1opt"))
74    
75  (comf "target:compiler/ir1final")  (comf "target:compiler/ir1final")
76  (comf "target:compiler/srctran")  (comf "target:compiler/srctran")
77  (comf "target:compiler/array-tran")  (comf "target:compiler/array-tran")
# Line 79  Line 95 
95  (comf "target:compiler/generic/utils")  (comf "target:compiler/generic/utils")
96  (comf "target:assembly/assemfile" :load *load-stuff*)  (comf "target:assembly/assemfile" :load *load-stuff*)
97    
98  #+small (declaim (optimize (safety 0) (debug-info 1)))  (with-compilation-unit
99        (:optimize '(optimize (safety 0) (debug-info 1)))
100    
101  (when (string= (old-c:backend-name old-c:*backend*) "PMAX")  (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
102    (comf "target:compiler/mips/mips-insts")    (comf "target:compiler/mips/mips-insts")
103    (comf "target:compiler/mips/mips-macs" :load *load-stuff*)    (comf "target:compiler/mips/mips-macs" :load *load-stuff*)
# Line 148  Line 166 
166    
167  (comf "target:compiler/pseudo-vops")  (comf "target:compiler/pseudo-vops")
168    
169  #+small (declaim (optimize (safety 1) (debug-info 2)))  ); with-compilation-unit for back end.
170    
171  (comf "target:compiler/aliencomp")  (comf "target:compiler/aliencomp")
172  (comf "target:compiler/gtn")  (comf "target:compiler/gtn")
173  (comf "target:compiler/ltn")  (with-compilation-unit
174        (:optimize '(optimize (debug-info 2) (safety 1)))
175      (comf "target:compiler/ltn"))
176  (comf "target:compiler/stack")  (comf "target:compiler/stack")
177  (comf "target:compiler/control")  (comf "target:compiler/control")
178  (comf "target:compiler/entry")  (comf "target:compiler/entry")
179  (comf "target:compiler/ir2tran")  (with-compilation-unit
180        (:optimize '(optimize (debug-info 2) (safety 1)))
181      (comf "target:compiler/ir2tran"))
182  (comf "target:compiler/copyprop")  (comf "target:compiler/copyprop")
183  (comf "target:compiler/assem-opt")  (comf "target:compiler/assem-opt")
184  (comf "target:compiler/represent")  (with-compilation-unit
185        (:optimize '(optimize (debug-info 2) (safety 1)))
186      (comf "target:compiler/represent"))
187  (comf "target:compiler/generic/vm-tran")  (comf "target:compiler/generic/vm-tran")
188  (comf "target:compiler/pack")  (with-compilation-unit
189        (:optimize '(optimize (debug-info 2) (safety 1)))
190      (comf "target:compiler/pack"))
191  (comf "target:compiler/codegen")  (comf "target:compiler/codegen")
192  (comf "target:compiler/debug")  (comf "target:compiler/debug")
193  (comf "target:compiler/statcount")  (comf "target:compiler/statcount")

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5