/[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.41 by ram, Tue May 18 19:01:17 1993 UTC revision 1.42 by ram, Fri Jul 23 21:05:25 1993 UTC
# Line 21  Line 21 
21       :optimize       :optimize
22       '(optimize (speed 2) (space 2) (inhibit-warnings 2)       '(optimize (speed 2) (space 2) (inhibit-warnings 2)
23                  (safety #+small 0 #-small 1)                  (safety #+small 0 #-small 1)
24                  (debug-info #+small .5 #-small 2))                  (debug #+small .5 #-small 2))
25       :optimize-interface       :optimize-interface
26       '(optimize-interface (safety #+small 1 #-small 2)       '(optimize-interface (safety #+small 1 #-small 2)
27                            (debug-info #+small .5 #-small 2))                            (debug #+small .5 #-small 2))
28       :context-declarations       :context-declarations
29       '(#+small       '(#+small
30         ((:or :macro         ((:or :macro
# Line 32  Line 32 
32                       "$PRIMITIVE-TRANSLATE-" "$PARSE-"))                       "$PRIMITIVE-TRANSLATE-" "$PARSE-"))
33          (declare (optimize (safety 1))))          (declare (optimize (safety 1))))
34         (:macro (declare (optimize (speed 0))))         (:macro (declare (optimize (speed 0))))
35         (:external (declare (optimize-interface (safety 2) (debug-info 1))))))         (:external (declare (optimize-interface (safety 2) (debug 1))))))
36    
37  (comf "target:compiler/macros" :load *load-stuff*)  (comf "target:compiler/macros" :load *load-stuff*)
38  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
# Line 73  Line 73 
73  (comf "target:compiler/main")  (comf "target:compiler/main")
74    
75  (with-compilation-unit  (with-compilation-unit
76      (:optimize '(optimize (debug-info 2) (safety 1)))      (:optimize '(optimize (debug 2) (safety 1)))
77    (comf "target:compiler/ir1tran")    (comf "target:compiler/ir1tran")
78    (comf "target:compiler/ir1util")    (comf "target:compiler/ir1util")
79    (comf "target:compiler/ir1opt"))    (comf "target:compiler/ir1opt"))
# Line 103  Line 103 
103  (comf "target:assembly/assemfile" :load *load-stuff*)  (comf "target:assembly/assemfile" :load *load-stuff*)
104    
105  (with-compilation-unit  (with-compilation-unit
106      (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug-info 1)))      (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 1)))
107    
108  (when (c:target-featurep :pmax)  (when (c:target-featurep :pmax)
109    (comf "target:compiler/mips/insts")    (comf "target:compiler/mips/insts")
# Line 274  Line 274 
274  (comf "target:compiler/ltv")  (comf "target:compiler/ltv")
275  (comf "target:compiler/gtn")  (comf "target:compiler/gtn")
276  (with-compilation-unit  (with-compilation-unit
277      (:optimize '(optimize (debug-info 2) (safety 1)))      (:optimize '(optimize (debug 2) (safety 1)))
278    (comf "target:compiler/ltn"))    (comf "target:compiler/ltn"))
279  (comf "target:compiler/stack")  (comf "target:compiler/stack")
280  (comf "target:compiler/control")  (comf "target:compiler/control")
281  (comf "target:compiler/entry")  (comf "target:compiler/entry")
282  (with-compilation-unit  (with-compilation-unit
283      (:optimize '(optimize (debug-info 2) (safety 1)))      (:optimize '(optimize (debug 2) (safety 1)))
284    (comf "target:compiler/ir2tran")    (comf "target:compiler/ir2tran")
285    (comf "target:compiler/generic/vm-ir2tran"))    (comf "target:compiler/generic/vm-ir2tran"))
286  (comf "target:compiler/copyprop")  (comf "target:compiler/copyprop")
287  (with-compilation-unit  (with-compilation-unit
288      (:optimize '(optimize (debug-info 2) (safety 1)))      (:optimize '(optimize (debug 2) (safety 1)))
289    (comf "target:compiler/represent"))    (comf "target:compiler/represent"))
290  (comf "target:compiler/generic/vm-tran")  (comf "target:compiler/generic/vm-tran")
291  (with-compilation-unit  (with-compilation-unit
292      (:optimize '(optimize (debug-info 2) (safety 1)))      (:optimize '(optimize (debug 2) (safety 1)))
293    (comf "target:compiler/pack"))    (comf "target:compiler/pack"))
294  (comf "target:compiler/codegen")  (comf "target:compiler/codegen")
295  (with-compilation-unit  (with-compilation-unit
296      (:optimize '(optimize (debug-info 2) (safety 2)))      (:optimize '(optimize (debug 2) (safety 2)))
297    (comf "target:compiler/debug"))    (comf "target:compiler/debug"))
298  (comf "target:compiler/statcount")  (comf "target:compiler/statcount")
299  (comf "target:compiler/dyncount")  (comf "target:compiler/dyncount")

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5