X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=build-order.lisp-expr;h=75a621c39c50f3ff2344694bfb7be1276a4f1660;hb=02a50d510572990c2b836e37ec1c0b23dac41b1a;hp=9db6817ef9904e78e8e1990d73dacf3abf90f811;hpb=42fcad110cd7e966c89bda8f5d3be96862ba1dbd;p=sbcl.git

diff --git a/build-order.lisp-expr b/build-order.lisp-expr
index 9db6817..75a621c 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
@@ -211,6 +215,7 @@
  ("output/stuff-groveled-from-headers" :not-host)
 
  ("src/code/unix" :not-host)
+ #!+win32 ("src/code/win32" :not-host)
 
  #!+mach  ("src/code/mach"     :not-host)
  #!+mach  ("src/code/mach-os"  :not-host)
@@ -220,6 +225,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 +246,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 +257,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")
@@ -277,6 +285,7 @@
 
  ("src/code/sort"  :not-host)
  ("src/code/time"  :not-host)
+ ("src/code/timer" :not-host)
  ("src/code/weak"  :not-host)
  ("src/code/final" :not-host)
 
@@ -380,6 +389,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")
@@ -457,7 +467,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
@@ -473,6 +484,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")
@@ -632,7 +644,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"