From 278bb872d52fdb08ff5f4ce4b8b32c26d25792bf Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 7 Mar 1992 13:30:32 +0000
Subject: [PATCH] Changed to use TARGET-FEATUREP to decide what to load and
 what not to load.

---
 compiler/loadbackend.lisp | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/compiler/loadbackend.lisp b/compiler/loadbackend.lisp
index 4bd33aca4..09f9f4994 100644
--- a/compiler/loadbackend.lisp
+++ b/compiler/loadbackend.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (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 @@
 (in-package "C")
 
 (load "vm:vm-macs")
-(if (string= (c:backend-name c:*target-backend*) "RT")
+(if (target-featurep :rt)
     (load "vm:params")
     (load "vm:parms"))
 (load "vm:objdef")
 (load "assem:support")
 (load "vm:macros")
+(when (target-featurep :gengc)
+  (load "vm:vm-utils"))
 (load "vm:utils")
 
 (load "vm:vm")
 (load "vm:insts")
-(unless (string= (c:backend-name c:*target-backend*) "RT")
+(unless (target-featurep :rt)
   (load "vm:primtype"))
 (load "vm:move")
 (load "vm:sap")
 (load "vm:system")
 (load "vm:char")
-(if (string= (c:backend-name c:*target-backend*) "RT")
-    #+afpa (load "vm:afpa")
-    #-afpa (load "vm:mc68881")
+(if (target-featurep :rt)
+    (if (target-featurep :afpa)
+	(load "vm:afpa")
+	(load "vm:mc68881"))
     (load "vm:float"))
 
 (load "vm:memory")
@@ -56,11 +59,13 @@
 
 (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:array")
 (load "assem:arith")
-(load "assem:alloc")
+(unless (target-featurep :gengc)
+  (load "assem:alloc"))
 
 (load "c:pseudo-vops")
 
-- 
GitLab