X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=build-order.lisp-expr;h=9976de762011ea7fe2d8bdfef1334d32025376fa;hb=6cb4f9ea3f4e35a5a8e75922833e14575ae92180;hp=380b26acdd251d4406ac1307f7aa77be71b0532c;hpb=40a26a4dd7f2891e78421ba465b99bb67f892856;p=sbcl.git

diff --git a/build-order.lisp-expr b/build-order.lisp-expr
index 380b26a..9976de7 100644
--- a/build-order.lisp-expr
+++ b/build-order.lisp-expr
@@ -39,6 +39,10 @@
  ;; This comes early because it's useful for debugging everywhere.
  ("src/code/show")
 
+ ;; This comes as early as possible, so that we catch the source locations
+ ;; for everything.
+ ("src/code/early-source-location")
+
  ;; This comes early because the cross-compilation host's backquote
  ;; logic can expand into something which can't be executed on the
  ;; target Lisp (e.g. in CMU CL where it expands into internal
@@ -101,6 +105,7 @@
 
  ;; for various constants e.g. SB!XC:MOST-POSITIVE-FIXNUM and
  ;; SB!VM:N-LOWTAG-BITS, needed by "early-objdef" and others
+ ("src/compiler/generic/parms")
  ("src/compiler/target/parms")
  ("src/compiler/generic/early-vm")
  ("src/compiler/generic/early-objdef")
@@ -211,8 +216,10 @@
  ("output/stuff-groveled-from-headers" :not-host)
 
  ("src/code/unix" :not-host)
-
+ #!+win32 ("src/code/win32" :not-host)
  #!+mach  ("src/code/mach"     :not-host)
+
+ ("src/code/common-os" :not-host)
  #!+mach  ("src/code/mach-os"  :not-host)
  #!+sunos ("src/code/sunos-os" :not-host)
  #!+hpux  ("src/code/hpux-os"  :not-host)
@@ -220,6 +227,7 @@
  #!+irix  ("src/code/irix-os"  :not-host)
  #!+bsd   ("src/code/bsd-os"   :not-host)
  #!+linux ("src/code/linux-os" :not-host)
+ #!+win32 ("src/code/win32-os" :not-host)
 
  ;; sparc-vm and ppc-vm need sc-offset defined to get at internal
  ;; error args. This file contains stuff previously in
@@ -240,7 +248,8 @@
  ;; FIXME: do we really want to keep this? -- CSR, 2002-08-31
  #!+rt    ("src/code/rt-vm"    :not-host)
 
- ("src/code/target-signal" :not-host) ; needs OS-CONTEXT-T from x86-vm
+ #!-win32 ("src/code/target-signal" :not-host) ; needs OS-CONTEXT-T from x86-vm
+ #!+win32 ("src/code/target-exception" :not-host)
 
  ("src/code/symbol"     :not-host)
  ("src/code/bignum"     :not-host)
@@ -250,6 +259,7 @@
  ("src/code/irrat"      :not-host)
 
  ("src/code/char")
+ ("src/code/huffman")
  ("src/code/target-char" :not-host)
  ("src/code/target-misc" :not-host)
  ("src/code/misc")
@@ -381,6 +391,7 @@
 
  ;; defines IR1-ATTRIBUTES macro, needed by proclaim.lisp
  ("src/compiler/knownfun")
+ ("src/compiler/constantp")
 
  ;; needs FUN-INFO structure slot setters, defined in knownfun.lisp
  ("src/compiler/fun-info-funs")
@@ -458,7 +469,8 @@
  ("src/code/load")
 
  #!+linkage-table ("src/code/linkage-table" :not-host)
- #!+os-provides-dlopen ("src/code/foreign-load" :not-host)
+ #!+(and os-provides-dlopen (not win32)) ("src/code/foreign-load" :not-host)
+ #!+(and os-provides-dlopen win32) ("src/code/win32-foreign-load" :not-host)
  ("src/code/foreign")
 
  ("src/code/fop") ; needs macros from code/load.lisp
@@ -474,6 +486,7 @@
  ("src/compiler/dump")
 
  ("src/compiler/main") ; needs DEFSTRUCT FASL-OUTPUT from dump.lisp
+ ("src/code/source-location")
  ("src/compiler/target-main" :not-host)
  ("src/compiler/ir1tran")
  ("src/compiler/ir1tran-lambda")
@@ -506,6 +519,8 @@
 
  ("src/compiler/debug-dump")
  ("src/compiler/generic/utils")
+ ("src/compiler/fopcompile")
+
  ("src/assembly/assemfile")
 
  ;; Compiling this file requires the macros SB!ASSEM:EMIT-LABEL and
@@ -633,7 +648,10 @@
  ("src/code/reader"            :not-host) ; needs "code/readtable"
  ("src/code/target-stream"     :not-host) ; needs WHITESPACEP from "code/reader"
  ("src/code/target-pathname"   :not-host) ; needs "code/pathname"
+ ("src/code/unix-pathname"      :not-host)
+ ("src/code/win32-pathname"     :not-host)
  ("src/code/filesys"           :not-host) ; needs HOST from "code/pathname"
+
  ("src/code/save"              :not-host) ; uses the definition of PATHNAME
                                           ;   from "code/pathname"
  ("src/code/sharpm"            :not-host) ; uses stuff from "code/reader"