/[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.43 by ram, Thu Aug 12 18:21:16 1993 UTC revision 1.44 by ram, Thu Aug 19 12:48:41 1993 UTC
# Line 9  Line 9 
9    #+bootstrap t    #+bootstrap t
10    #-bootstrap (eq c:*backend* c:*native-backend*))    #-bootstrap (eq c:*backend* c:*native-backend*))
11    
12    (defvar *byte-compile* #+small t #-small :maybe)
13    
14  ;;; Import so that these types which appear in the globldb are the same...  ;;; Import so that these types which appear in the globldb are the same...
15  #+bootstrap  #+bootstrap
16  (import '(old-c::approximate-function-type  (import '(old-c::approximate-function-type
# Line 16  Line 18 
18            old-c::defstruct-slot-description)            old-c::defstruct-slot-description)
19          "C")          "C")
20    
21    (defun vmdir (f)
22      (merge-pathnames
23       (make-pathname :directory nil :defaults f)
24       (merge-pathnames
25        (cond ((c:target-featurep :pmax) "mips/")
26              ((c:target-featurep :rt) "rt/")
27              ((c:target-featurep :hppa) "hppa/")
28              ((c:target-featurep :sparc) "sparc/")
29              ((c:target-featurep :x86) "x86/")
30              (t
31               (error "What machine is this?")))
32        (make-pathname :directory (pathname-directory f)))))
33    
34  (with-compiler-log-file  (with-compiler-log-file
35      ("target:compile-compiler.log"      ("target:compile-compiler.log"
36       :optimize       :optimize
# Line 34  Line 49 
49         (:macro (declare (optimize (speed 0))))         (:macro (declare (optimize (speed 0))))
50         (:external (declare (optimize-interface (safety 2) (debug 1))))))         (:external (declare (optimize-interface (safety 2) (debug 1))))))
51    
52  (comf "target:compiler/macros" :load *load-stuff*)  (comf "target:compiler/macros" :load *load-stuff* :byte-compile *byte-compile*)
53  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t)
54  (comf "target:compiler/backend" :load *load-stuff* :proceed t)  (comf "target:compiler/backend" :load *load-stuff* :proceed t)
55    
56  (defvar c::*target-backend* (c::make-backend))  (defvar c::*target-backend* (c::make-backend))
57    
58  (when (c:target-featurep :pmax)  (comf (vmdir "target:compiler/parms") :proceed t)
   (comf "target:compiler/mips/parms" :proceed t))  
 (when (c:target-featurep :sparc)  
   (comf "target:compiler/sparc/parms" :proceed t))  
 (when (c:target-featurep :rt)  
   (comf "target:compiler/rt/params" :proceed t))  
 (when (c:target-featurep :hppa)  
   (comf "target:compiler/hppa/parms" :proceed t))  
 (when (c:target-featurep :x86)  
   (comf "target:compiler/hppa/x86" :proceed t))  
59  (comf "target:compiler/generic/objdef" :proceed t)  (comf "target:compiler/generic/objdef" :proceed t)
60  (comf "target:compiler/generic/interr")  (comf "target:compiler/generic/interr")
61    
# Line 63  Line 69 
69  (comf "target:compiler/ctype")  (comf "target:compiler/ctype")
70  (comf "target:compiler/vop" :proceed t)  (comf "target:compiler/vop" :proceed t)
71  (comf "target:compiler/vmdef")  (comf "target:compiler/vmdef")
72  (comf "target:compiler/meta-vmdef" :load *load-stuff* :proceed t)  (comf "target:compiler/meta-vmdef" :proceed t)
73    (when *load-stuff*
74      (load "target:compiler/meta-vmdef"))
75    
76  (comf "target:compiler/disassem")  (comf "target:compiler/disassem" :byte-compile *byte-compile*)
77  (comf "target:compiler/new-assem")  (comf "target:compiler/new-assem")
78  (comf "target:compiler/alloc")  (comf "target:compiler/alloc")
79  (comf "target:compiler/knownfun")  (comf "target:compiler/knownfun")
# Line 81  Line 89 
89    
90  (comf "target:compiler/ir1final")  (comf "target:compiler/ir1final")
91  (comf "target:compiler/srctran")  (comf "target:compiler/srctran")
92  (comf "target:compiler/array-tran")  (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
93  (comf "target:compiler/seqtran")  (comf "target:compiler/seqtran" :byte-compile *byte-compile*)
94  (comf "target:compiler/typetran")  (comf "target:compiler/typetran" :byte-compile *byte-compile*)
95  (comf "target:compiler/generic/vm-typetran")  (comf "target:compiler/generic/vm-typetran" :byte-compile *byte-compile*)
96  (comf "target:compiler/float-tran")  (comf "target:compiler/float-tran" :byte-compile *byte-compile*)
97  (comf "target:compiler/saptran")  (comf "target:compiler/saptran" :byte-compile *byte-compile*)
98  (comf "target:compiler/locall")  (comf "target:compiler/locall")
99  (comf "target:compiler/dfo")  (comf "target:compiler/dfo")
100  (comf "target:compiler/checkgen")  (comf "target:compiler/checkgen")
# Line 100  Line 108 
108    
109  (comf "target:compiler/debug-dump")  (comf "target:compiler/debug-dump")
110  (comf "target:compiler/generic/utils")  (comf "target:compiler/generic/utils")
111  (comf "target:assembly/assemfile" :load *load-stuff*)  (comf "target:assembly/assemfile")
112    (when *load-stuff* (load "target:assembly/assemfile"))
113  (with-compilation-unit  
114      (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 1)))  (with-compilation-unit
115        (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
116  (when (c:target-featurep :pmax)  
117    (comf "target:compiler/mips/insts")  (comf (vmdir "target:compiler/insts"))
118    (comf "target:compiler/mips/macros" :load *load-stuff*)  (comf (vmdir "target:compiler/macros") :load *load-stuff*)
119    (comf "target:compiler/mips/vm")  (comf (vmdir "target:compiler/vm"))
120    (comf "target:compiler/generic/primtype")  (comf "target:compiler/generic/primtype")
121    (comf "target:assembly/mips/support" :load *load-stuff*)  (comf (vmdir "target:assembly/support") :load *load-stuff*)
122    (comf "target:compiler/mips/move")  (comf (vmdir "target:compiler/move"))
123    (comf "target:compiler/mips/float")  (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
124    (comf "target:compiler/mips/sap")  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
125    (comf "target:compiler/mips/system")  (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
126    (comf "target:compiler/mips/char")  (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
127    (comf "target:compiler/mips/memory")  (comf (vmdir "target:compiler/memory"))
128    (comf "target:compiler/mips/static-fn")  (comf (vmdir "target:compiler/static-fn"))
129    (comf "target:compiler/mips/arith")  (comf (vmdir "target:compiler/arith"))
130    (comf "target:compiler/mips/subprim")  (comf (vmdir "target:compiler/subprim") :byte-compile *byte-compile*)
131    (comf "target:compiler/mips/debug")  (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
132    (comf "target:compiler/mips/c-call")  (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
133    (comf "target:compiler/mips/cell")  (comf (vmdir "target:compiler/cell"))
134    (comf "target:compiler/mips/values")  (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
135    (comf "target:compiler/mips/alloc")  (comf (vmdir "target:compiler/alloc"))
136    (comf "target:compiler/mips/call")  (comf (vmdir "target:compiler/call"))
137    (comf "target:compiler/mips/nlx")  (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
138    (comf "target:compiler/mips/print")  (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
139    (comf "target:compiler/mips/array")  (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
140    (comf "target:compiler/mips/pred")  (comf (vmdir "target:compiler/pred"))
141    (comf "target:compiler/mips/type-vops")  (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
142    
143    (comf "target:assembly/mips/assem-rtns")  (comf (vmdir "target:assembly/assem-rtns") :byte-compile *byte-compile*)
144    (comf "target:assembly/mips/array")  (comf (vmdir "target:assembly/array") :byte-compile *byte-compile*)
145    (comf "target:assembly/mips/arith")  (comf (vmdir "target:assembly/arith"))
146    (comf "target:assembly/mips/alloc"))  (comf (vmdir "target:assembly/alloc"))
   
 (when (c:target-featurep :sparc)  
   (comf "target:compiler/sparc/insts")  
   (comf "target:compiler/sparc/macros" :load *load-stuff*)  
   (comf "target:compiler/sparc/vm")  
   (comf "target:compiler/generic/primtype")  
   (comf "target:compiler/sparc/move")  
   (comf "target:compiler/sparc/float")  
   (comf "target:compiler/sparc/sap")  
   (comf "target:compiler/sparc/system")  
   (comf "target:compiler/sparc/char")  
   (comf "target:compiler/sparc/memory")  
   (comf "target:compiler/sparc/static-fn")  
   (comf "target:compiler/sparc/arith")  
   (comf "target:compiler/sparc/subprim")  
   (comf "target:compiler/sparc/debug")  
   (comf "target:compiler/sparc/c-call")  
   (comf "target:compiler/sparc/cell")  
   (comf "target:compiler/sparc/values")  
   (comf "target:compiler/sparc/alloc")  
   (comf "target:compiler/sparc/call")  
   (comf "target:compiler/sparc/nlx")  
   (comf "target:compiler/sparc/print")  
   (comf "target:compiler/sparc/array")  
   (comf "target:compiler/sparc/pred")  
   (comf "target:compiler/sparc/type-vops")  
   
   (comf "target:assembly/sparc/support" :load *load-stuff*)  
   (comf "target:assembly/sparc/assem-rtns")  
   (comf "target:assembly/sparc/array")  
   (comf "target:assembly/sparc/arith")  
   (comf "target:assembly/sparc/alloc"))  
   
 (when (c:target-featurep :rt)  
   (comf "target:compiler/rt/insts")  
   (comf "target:compiler/rt/macros" :load *load-stuff*)  
   (comf "target:compiler/rt/vm")  
   (comf "target:compiler/rt/move")  
   (if (c:target-featurep :afpa)  
       (comf "target:compiler/rt/afpa")  
       (comf "target:compiler/rt/mc68881"))  
   (comf "target:compiler/rt/sap")  
   (comf "target:compiler/rt/system")  
   (comf "target:compiler/rt/char")  
   (comf "target:compiler/rt/memory")  
   (comf "target:compiler/rt/static-fn")  
   (comf "target:compiler/rt/arith")  
   (comf "target:compiler/rt/subprim")  
   (comf "target:compiler/rt/debug")  
   (comf "target:compiler/rt/c-call")  
   (comf "target:compiler/rt/cell")  
   (comf "target:compiler/rt/values")  
   (comf "target:compiler/rt/alloc")  
   (comf "target:compiler/rt/call")  
   (comf "target:compiler/rt/nlx")  
   (comf "target:compiler/rt/print")  
   (comf "target:compiler/rt/array")  
   (comf "target:compiler/rt/pred")  
   (comf "target:compiler/rt/type-vops")  
   
   (comf "target:assembly/rt/support" :load *load-stuff*)  
   (comf "target:assembly/rt/assem-rtns")  
   (comf "target:assembly/rt/array")  
   (comf "target:assembly/rt/arith")  
   (comf "target:assembly/rt/alloc"))  
   
 (when (c:target-featurep :hppa)  
   (comf "target:compiler/hppa/insts")  
   (comf "target:compiler/hppa/macros" :load *load-stuff*)  
   (comf "target:compiler/hppa/vm")  
   (comf "target:compiler/generic/primtype")  
   (comf "target:assembly/hppa/support" :load *load-stuff*)  
   (comf "target:compiler/hppa/move")  
   (comf "target:compiler/hppa/float")  
   (comf "target:compiler/hppa/sap")  
   (comf "target:compiler/hppa/system")  
   (comf "target:compiler/hppa/char")  
   (comf "target:compiler/hppa/memory")  
   (comf "target:compiler/hppa/static-fn")  
   (comf "target:compiler/hppa/arith")  
   (comf "target:compiler/hppa/subprim")  
   (comf "target:compiler/hppa/debug")  
   (comf "target:compiler/hppa/c-call")  
   (comf "target:compiler/hppa/cell")  
   (comf "target:compiler/hppa/values")  
   (comf "target:compiler/hppa/alloc")  
   (comf "target:compiler/hppa/call")  
   (comf "target:compiler/hppa/nlx")  
   (comf "target:compiler/hppa/print")  
   (comf "target:compiler/hppa/array")  
   (comf "target:compiler/hppa/pred")  
   (comf "target:compiler/hppa/type-vops")  
   
   (comf "target:assembly/hppa/assem-rtns")  
   (comf "target:assembly/hppa/array")  
   (comf "target:assembly/hppa/arith")  
   (comf "target:assembly/hppa/alloc"))  
   
 (when (c:target-featurep :x86)  
   (comf "target:compiler/x86/insts")  
   (comf "target:compiler/x86/macros" :load *load-stuff*)  
   (comf "target:compiler/x86/vm")  
   (comf "target:compiler/generic/primtype")  
   (comf "target:assembly/x86/support" :load *load-stuff*)  
   (comf "target:compiler/x86/move")  
   (comf "target:compiler/x86/float")  
   (comf "target:compiler/x86/sap")  
   (comf "target:compiler/x86/system")  
   (comf "target:compiler/x86/char")  
   (comf "target:compiler/x86/memory")  
   (comf "target:compiler/x86/static-fn")  
   (comf "target:compiler/x86/arith")  
   (comf "target:compiler/x86/subprim")  
   (comf "target:compiler/x86/debug")  
   (comf "target:compiler/x86/c-call")  
   (comf "target:compiler/x86/cell")  
   (comf "target:compiler/x86/values")  
   (comf "target:compiler/x86/alloc")  
   (comf "target:compiler/x86/call")  
   (comf "target:compiler/x86/nlx")  
   (comf "target:compiler/x86/print")  
   (comf "target:compiler/x86/array")  
   (comf "target:compiler/x86/pred")  
   (comf "target:compiler/x86/type-vops")  
   
   (comf "target:assembly/x86/assem-rtns")  
   (comf "target:assembly/x86/array")  
   (comf "target:assembly/x86/arith")  
   (comf "target:assembly/x86/alloc"))  
147    
148  (comf "target:compiler/pseudo-vops")  (comf "target:compiler/pseudo-vops")
149    
150  ); with-compilation-unit for back end.  ); with-compilation-unit for back end.
151    
152  (comf "target:compiler/aliencomp")  (comf "target:compiler/aliencomp" :byte-compile *byte-compile*)
153  (comf "target:compiler/ltv")  (comf "target:compiler/ltv")
154  (comf "target:compiler/gtn")  (comf "target:compiler/gtn")
155  (with-compilation-unit  (with-compilation-unit
# Line 294  Line 173 
173  (comf "target:compiler/codegen")  (comf "target:compiler/codegen")
174  (with-compilation-unit  (with-compilation-unit
175      (:optimize '(optimize (debug 2) (safety 2)))      (:optimize '(optimize (debug 2) (safety 2)))
176    (comf "target:compiler/debug"))    (comf "target:compiler/debug" :byte-compile *byte-compile*))
177    #+nil
178  (comf "target:compiler/statcount")  (comf "target:compiler/statcount")
179  (comf "target:compiler/dyncount")  (comf "target:compiler/dyncount")
180    

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5