/[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.22.3 by rtoy, Sun Sep 28 20:51:28 2008 UTC revision 1.57.22.4 by rtoy, Tue Sep 30 17:49:11 2008 UTC
# Line 178  Line 178 
178            (vmdir "target:compiler/float"))            (vmdir "target:compiler/float"))
179        :byte-compile *byte-compile*)        :byte-compile *byte-compile*)
180  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)  (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
181  (comf (if (c:target-featurep :sse2)  (when (c:target-featurep :x86)
182            (vmdir "target:compiler/sse2-sap")    (comf (if (c:target-featurep :sse2)
183            (vmdir "target:compiler/x87-sap"))              (vmdir "target:compiler/sse2-sap")
184        :byte-compile *byte-compile*)              (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 191  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  (comf (if (c:target-featurep :sse2)  (when (c:target-featurep :x86)
196            (vmdir "target:compiler/sse2-c-call")    (comf (if (c:target-featurep :sse2)
197            (vmdir "target:compiler/x87-c-call"))              (vmdir "target:compiler/sse2-c-call")
198        :byte-compile *byte-compile*)              (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"))
# Line 204  Line 206 
206    
207  ;; Must come before array.lisp because array.lisp wants to use some  ;; Must come before array.lisp because array.lisp wants to use some
208  ;; vops as templates.  ;; vops as templates.
209  (comf (vmdir (if (c:target-featurep :sse2)  (when (c:target-featurep :x86)
210                   "target:compiler/sse2-array"    (comf (vmdir (if (c:target-featurep :sse2)
211                   "target:compiler/x87-array"))                     "target:compiler/sse2-array"
212        :byte-compile *byte-compile*)                     "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    

Legend:
Removed from v.1.57.22.3  
changed lines
  Added in v.1.57.22.4

  ViewVC Help
Powered by ViewVC 1.1.5