/[cmucl]/src/compiler/loadbackend.lisp
ViewVC logotype

Contents of /src/compiler/loadbackend.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (show annotations)
Wed Nov 12 15:04:23 2008 UTC (5 years, 5 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, merged-unicode-utf16-extfmt-2009-06-11, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, release-19f-pre1, snapshot-2008-12, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, intl-branch-working-2010-02-11-1000, RELEASE_20b, RELEASE_19f, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, label-2009-03-25, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, portable-clx-import-2009-06-16, cross-sparc-branch-base, intl-branch-base, portable-clx-base, snapshot-2009-08, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, HEAD
Branch point for: RELEASE-19F-BRANCH, portable-clx-branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.9: +19 -2 lines
Merge in SSE2 changes from sse2-packed-branch (tag
sse2-packed-2008-11-12).
1 ;;; -*- Package: C; Log: C.Log -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/compiler/loadbackend.lisp,v 1.10 2008/11/12 15:04:23 rtoy Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; Load the backend of the compiler.
13 ;;;
14
15 (in-package "C")
16
17 (load "vm:vm-macs")
18 (if (target-featurep :rt)
19 (load "vm:params")
20 (load "vm:parms"))
21
22 (load "vm:objdef")
23 (load "vm:interr")
24 (load "assem:support")
25 (load "vm:macros")
26 (load "vm:utils")
27
28 (load "vm:vm")
29 (load "vm:insts")
30 (unless (target-featurep :rt)
31 (load "vm:primtype"))
32 (load "vm:move")
33 (load "vm:sap")
34 (when (target-featurep :x86)
35 (if (target-featurep :sse2)
36 (load "vm:sse2-sap")
37 (load "vm:x87-sap")))
38 (load "vm:system")
39 (load "vm:char")
40 (if (target-featurep :rt)
41 (if (target-featurep :afpa)
42 (load "vm:afpa")
43 (load "vm:mc68881"))
44 (if (target-featurep :sse2)
45 (load "vm:float-sse2")
46 (load "vm:float")))
47
48 (load "vm:memory")
49 (load "vm:static-fn")
50 (load "vm:arith")
51 (load "vm:cell")
52 (load "vm:subprim")
53 (load "vm:debug")
54 (load "vm:c-call")
55 (when (target-featurep :x86)
56 (if (target-featurep :sse2)
57 (load "vm:sse2-c-call")
58 (load "vm:x87-c-call")))
59 (load "vm:print")
60 (load "vm:alloc")
61 (load "vm:call")
62 (load "vm:nlx")
63 (load "vm:values")
64 ;; These need to be loaded before array because array wants to use
65 ;; some vops as templates.
66 (when (target-featurep :x86)
67 (load (if (target-featurep :sse2)
68 "vm:sse2-array"
69 "vm:x87-array")))
70 (load "vm:array")
71 (load "vm:pred")
72 (load "vm:type-vops")
73
74 (load "assem:assem-rtns")
75
76 (load "assem:array")
77 (load "assem:arith")
78 (load "assem:alloc")
79
80 (load "c:pseudo-vops")
81
82 (check-move-function-consistency)

  ViewVC Help
Powered by ViewVC 1.1.5