/[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.48.2.2 by pw, Tue May 23 16:39:06 2000 UTC revision 1.58 by rtoy, Wed Nov 12 15:04:25 2008 UTC
# Line 1  Line 1 
1  ;;; -*- Package: User -*-  ;;; -*- Package: CL-USER -*-
2  ;;;  ;;;
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;;  ;;;
# Line 7  Line 7 
7  ;;;  ;;;
8  ;;; **********************************************************************  ;;; **********************************************************************
9  ;;;  ;;;
10  (in-package "USER")  ;;; Loading this file causes the CMUCL compiler to be compiled.
11    ;;;
12    (in-package "CL-USER")
13    
14  #+bootstrap  #+bootstrap
15  (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))  (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
# Line 18  Line 20 
20    
21  (defvar *byte-compile* #+small t #-small :maybe)  (defvar *byte-compile* #+small t #-small :maybe)
22    
23  ;;; Import so that these types which appear in the globldb are the same...  (unless (find-package "OLD-C")
24      (rename-package "C" "C" '("OLD-C")))
25    
26    ;;; Import so that these types which appear in the globaldb are the same...
27  #+bootstrap  #+bootstrap
28  (import '(old-c::approximate-function-type  (import '(old-c::approximate-function-type
29            old-c::function-info old-c::defstruct-description            old-c::function-info old-c::defstruct-description
# Line 46  Line 51 
51         (:external (declare (optimize-interface (safety 2) (debug 1))))))         (:external (declare (optimize-interface (safety 2) (debug 1))))))
52    
53    
54    (setf lisp::*enable-package-locked-errors* nil)
55    
56  (comf "target:compiler/macros"  (comf "target:compiler/macros"
57        :byte-compile #+bootstrap t #-bootstrap *byte-compile*)        :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
58  (when *load-stuff*  (when *load-stuff*
# Line 64  Line 71 
71  (defvar c::*target-backend* (c::make-backend))  (defvar c::*target-backend* (c::make-backend))
72    
73  (comf (vmdir "target:compiler/parms") :proceed t)  (comf (vmdir "target:compiler/parms") :proceed t)
74    ;(when *load-stuff*
75    ;  (load (vmdir "target:compiler/parms")))
76    
77  (comf "target:compiler/generic/objdef" :proceed t)  (comf "target:compiler/generic/objdef" :proceed t)
78  (comf "target:compiler/generic/interr")  (comf "target:compiler/generic/interr")
# Line 87  Line 96 
96    (load "target:compiler/meta-vmdef"))    (load "target:compiler/meta-vmdef"))
97  (comf "target:compiler/disassem" :byte-compile *byte-compile*)  (comf "target:compiler/disassem" :byte-compile *byte-compile*)
98  (comf "target:compiler/new-assem")  (comf "target:compiler/new-assem")
99    (when *load-stuff*
100      (load "target:compiler/new-assem"))
101  (comf "target:compiler/alloc")  (comf "target:compiler/alloc")
102  (comf "target:compiler/knownfun")  (comf "target:compiler/knownfun")
103  (comf "target:compiler/fndb")  (comf "target:compiler/fndb")
# Line 102  Line 113 
113    (comf "target:compiler/ir1util")    (comf "target:compiler/ir1util")
114    (comf "target:compiler/ir1opt"))    (comf "target:compiler/ir1opt"))
115    
116    (comf "target:compiler/loop")
117  (comf "target:compiler/ir1final")  (comf "target:compiler/ir1final")
118  ;;try(comf "target:compiler/srctran")  ;;try(comf "target:compiler/srctran")
119  (comf "target:compiler/array-tran" :byte-compile *byte-compile*)  (comf "target:compiler/array-tran" :byte-compile *byte-compile*)
# Line 161  Line 173 
173  (when *load-stuff*  (when *load-stuff*
174    (load (vmdir "target:assembly/support")))    (load (vmdir "target:assembly/support")))
175  (comf (vmdir "target:compiler/move"))  (comf (vmdir "target:compiler/move"))
176  (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)  (comf (if (c:target-featurep :sse2)
177              (vmdir "target:compiler/float-sse2")
178              (vmdir "target:compiler/float"))
179          :byte-compile *byte-compile*)
180  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
181    (when (c:target-featurep :x86)
182      (comf (if (c:target-featurep :sse2)
183                (vmdir "target:compiler/sse2-sap")
184                (vmdir "target:compiler/x87-sap"))
185            :byte-compile *byte-compile*))
186  (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
187  (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
188  (comf (vmdir "target:compiler/memory"))  (comf (vmdir "target:compiler/memory"))
# Line 172  Line 192 
192    
193  (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
194  (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
195    (when (c:target-featurep :x86)
196      (comf (if (c:target-featurep :sse2)
197                (vmdir "target:compiler/sse2-c-call")
198                (vmdir "target:compiler/x87-c-call"))
199            :byte-compile *byte-compile*))
200  (comf (vmdir "target:compiler/cell"))  (comf (vmdir "target:compiler/cell"))
201  (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/values") :byte-compile *byte-compile*)
202  (comf (vmdir "target:compiler/alloc"))  (comf (vmdir "target:compiler/alloc"))
203  (comf (vmdir "target:compiler/call"))  (comf (vmdir "target:compiler/call"))
204  (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/nlx") :byte-compile *byte-compile*)
205  (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/print") :byte-compile *byte-compile*)
206    
207    ;; Must come before array.lisp because array.lisp wants to use some
208    ;; vops as templates.
209    (when (c:target-featurep :x86)
210      (comf (vmdir (if (c:target-featurep :sse2)
211                       "target:compiler/sse2-array"
212                       "target:compiler/x87-array"))
213            :byte-compile *byte-compile*))
214    
215  (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)
216    
217  (comf (vmdir "target:compiler/pred"))  (comf (vmdir "target:compiler/pred"))
218  (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/type-vops") :byte-compile *byte-compile*)
219    
# Line 216  Line 251 
251  (comf "target:compiler/codegen")  (comf "target:compiler/codegen")
252  (with-compilation-unit  (with-compilation-unit
253      (:optimize '(optimize (debug 2) (safety 2)))      (:optimize '(optimize (debug 2) (safety 2)))
254    (comf "target:compiler/debug" :byte-compile *byte-compile*))    (comf "target:compiler/debug" :byte-compile *byte-compile*)
255      (comf "target:compiler/xref" :byte-compile *byte-compile*))
256  #+nil  #+nil
257  (comf "target:compiler/statcount")  (comf "target:compiler/statcount")
258  (comf "target:compiler/dyncount")  (comf "target:compiler/dyncount")

Legend:
Removed from v.1.48.2.2  
changed lines
  Added in v.1.58

  ViewVC Help
Powered by ViewVC 1.1.5