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