Skip to content
Snippets Groups Projects
Commit 278bb872 authored by wlott's avatar wlott
Browse files

Changed to use TARGET-FEATUREP to decide what to load and what not to load.

parent ca31c553
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loadbackend.lisp,v 1.4 1992/02/26 00:20:00 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loadbackend.lisp,v 1.5 1992/03/07 13:30:32 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -17,25 +17,28 @@ ...@@ -17,25 +17,28 @@
(in-package "C") (in-package "C")
(load "vm:vm-macs") (load "vm:vm-macs")
(if (string= (c:backend-name c:*target-backend*) "RT") (if (target-featurep :rt)
(load "vm:params") (load "vm:params")
(load "vm:parms")) (load "vm:parms"))
(load "vm:objdef") (load "vm:objdef")
(load "assem:support") (load "assem:support")
(load "vm:macros") (load "vm:macros")
(when (target-featurep :gengc)
(load "vm:vm-utils"))
(load "vm:utils") (load "vm:utils")
(load "vm:vm") (load "vm:vm")
(load "vm:insts") (load "vm:insts")
(unless (string= (c:backend-name c:*target-backend*) "RT") (unless (target-featurep :rt)
(load "vm:primtype")) (load "vm:primtype"))
(load "vm:move") (load "vm:move")
(load "vm:sap") (load "vm:sap")
(load "vm:system") (load "vm:system")
(load "vm:char") (load "vm:char")
(if (string= (c:backend-name c:*target-backend*) "RT") (if (target-featurep :rt)
#+afpa (load "vm:afpa") (if (target-featurep :afpa)
#-afpa (load "vm:mc68881") (load "vm:afpa")
(load "vm:mc68881"))
(load "vm:float")) (load "vm:float"))
(load "vm:memory") (load "vm:memory")
...@@ -56,11 +59,13 @@ ...@@ -56,11 +59,13 @@
(load "assem:assem-rtns") (load "assem:assem-rtns")
(unless (string= (c:backend-name c:*target-backend*) "RT") (unless (or (target-featurep :rt)
(target-featurep :gengc))
(load "assem:bit-bash")) (load "assem:bit-bash"))
(load "assem:array") (load "assem:array")
(load "assem:arith") (load "assem:arith")
(load "assem:alloc") (unless (target-featurep :gengc)
(load "assem:alloc"))
(load "c:pseudo-vops") (load "c:pseudo-vops")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment