/[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.57 by rtoy, Fri Nov 5 22:02:38 2004 UTC revision 1.58 by rtoy, Wed Nov 12 15:04:25 2008 UTC
# Line 173  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 184  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    

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

  ViewVC Help
Powered by ViewVC 1.1.5