/[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 by ram, Sat Jan 18 14:31:47 1997 UTC revision 1.48.2.2 by pw, Tue May 23 16:39:06 2000 UTC
# Line 1  Line 1 
1  ;;; -*- Package: User -*-  ;;; -*- Package: User -*-
2  ;;;  ;;;
3    ;;; **********************************************************************
4    ;;;
5    (ext:file-comment
6      "$Header$")
7    ;;;
8    ;;; **********************************************************************
9    ;;;
10  (in-package "USER")  (in-package "USER")
11    
12  #+bootstrap  #+bootstrap
# Line 39  Line 46 
46         (:external (declare (optimize-interface (safety 2) (debug 1))))))         (:external (declare (optimize-interface (safety 2) (debug 1))))))
47    
48    
49  (comf "target:compiler/macros" :load *load-stuff* :byte-compile *byte-compile*)  (comf "target:compiler/macros"
50          :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
51    (when *load-stuff*
52      (load "target:compiler/macros"))
53    
54  (comf "target:compiler/generic/vm-macs" :load *load-stuff* :proceed t  (comf "target:compiler/generic/vm-macs" :proceed t
55          :byte-compile #+bootstrap t #-bootstrap nil)          :byte-compile #+bootstrap t #-bootstrap nil)
56    (when *load-stuff*
57      (load "target:compiler/generic/vm-macs"))
58    
59  (comf "target:compiler/backend" :load *load-stuff* :proceed t  (comf "target:compiler/backend" :proceed t
60          :byte-compile #+bootstrap t #-bootstrap nil)          :byte-compile #+bootstrap t #-bootstrap nil)
61    (when *load-stuff*
62      (load "target:compiler/backend"))
63    
64  (defvar c::*target-backend* (c::make-backend))  (defvar c::*target-backend* (c::make-backend))
65    
# Line 65  Line 79 
79  (comf "target:compiler/vop" :proceed t)  (comf "target:compiler/vop" :proceed t)
80  (comf "target:compiler/vmdef")  (comf "target:compiler/vmdef")
81    
82    #-bootstrap
83  (comf "target:compiler/meta-vmdef" :proceed t)  (comf "target:compiler/meta-vmdef" :proceed t)
84  #+bootstrap ;; pw adds  #+bootstrap ;; pw adds
85  (comf "target:compiler/meta-vmdef" :byte-compile t)  (comf "target:compiler/meta-vmdef" :byte-compile t)
# Line 110  Line 125 
125    
126  (comf "target:compiler/debug-dump")  (comf "target:compiler/debug-dump")
127  (comf "target:compiler/generic/utils")  (comf "target:compiler/generic/utils")
128    #-bootstrap
129  (comf "target:assembly/assemfile")  (comf "target:assembly/assemfile")
130  #+bootstrap  #+bootstrap
131  (comf "target:assembly/assemfile" :byte-compile t)  (comf "target:assembly/assemfile" :byte-compile t)
# Line 119  Line 135 
135  (with-compilation-unit  (with-compilation-unit
136      (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))      (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug 0)))
137    
138    #-x86    #+original
139    (progn                                ; this is distributed order    (progn                                ; this is distributed order
140      (comf (vmdir "target:compiler/insts"))      (comf (vmdir "target:compiler/insts"))
141      (comf (vmdir "target:compiler/macros") :load *load-stuff*)      (comf (vmdir "target:compiler/macros") :load *load-stuff*)
142      (comf (vmdir "target:compiler/vm")))      (comf (vmdir "target:compiler/vm")))
143    #+nil    #+original
144    (progn                                ; this works for x86    (progn                                ; this works for x86
145      (comf (vmdir "target:compiler/vm"))      (comf (vmdir "target:compiler/vm"))
146      (comf (vmdir "target:compiler/macros") :load *load-stuff*)      (comf (vmdir "target:compiler/macros") :load *load-stuff*)
147      (comf (vmdir "target:compiler/insts")))      (comf (vmdir "target:compiler/insts")))
148    #+x86    #-tryit
149    (progn                                ; this is needed for cross compile    (progn                                ; this also works - better??
150      (comf (vmdir "target:compiler/vm"))      (comf (vmdir "target:compiler/vm"))
151      (comf (vmdir "target:compiler/insts"))      (comf (vmdir "target:compiler/insts"))
152      (comf (vmdir "target:compiler/macros") :load *load-stuff*      (comf (vmdir "target:compiler/macros")
153             :byte-compile #+bootstrap t #-bootstrap nil)             :byte-compile #+bootstrap t #-bootstrap nil)
154      )      (when *load-stuff*
155          (load (vmdir "target:compiler/macros")))
156        )
157    
158  (comf "target:compiler/generic/primtype")  (comf "target:compiler/generic/primtype")
159  (comf (vmdir "target:assembly/support") :load *load-stuff*  (comf (vmdir "target:assembly/support")
160         :byte-compile #+bootstrap t #-bootstrap nil) ; pw         :byte-compile #+bootstrap t #-bootstrap nil) ; pw
161    (when *load-stuff*
162      (load (vmdir "target:assembly/support")))
163  (comf (vmdir "target:compiler/move"))  (comf (vmdir "target:compiler/move"))
164  (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/float") :byte-compile *byte-compile*)
165  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)

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

  ViewVC Help
Powered by ViewVC 1.1.5