Skip to content
Snippets Groups Projects
Commit 2e2fcde7 authored by wlott's avatar wlott
Browse files

Changed to use C:BACKEND-FEATUREP instead of STRING= against the backend

name.
parent 5aa45ba4
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/tools/worldcom.lisp,v 1.37 1992/03/02 04:17:56 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.38 1992/03/09 20:18:47 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -34,33 +34,25 @@ ...@@ -34,33 +34,25 @@
((:and :external (:match "LIST")) ((:and :external (:match "LIST"))
(declare (optimize (safety 1)))))) (declare (optimize (safety 1))))))
(let ((*features*
(cons (intern (c:backend-name c:*backend*)
(find-package "KEYWORD"))
(remove-if #'(lambda (x)
(member x '(:pmax :sparc :rt)))
*features*))))
;;; these guys need to be first. ;;; these guys need to be first.
(comf "target:code/struct") ; For structures. (comf "target:code/struct") ; For structures.
;;; Assembly files. ;;; Assembly files.
(when (string= (c:backend-name c:*backend*) "PMAX") (when (c:backend-featurep :pmax)
(comf "target:assembly/mips/assem-rtns" :assem t) (comf "target:assembly/mips/assem-rtns" :assem t)
(comf "target:assembly/mips/array" :assem t) (comf "target:assembly/mips/array" :assem t)
(comf "target:assembly/mips/bit-bash" :assem t) (comf "target:assembly/mips/bit-bash" :assem t)
(comf "target:assembly/mips/arith" :assem t) (comf "target:assembly/mips/arith" :assem t)
(comf "target:assembly/mips/alloc" :assem t)) (comf "target:assembly/mips/alloc" :assem t))
(when (string= (c:backend-name c:*backend*) "SPARC") (when (c:backend-featurep :sparc)
(comf "target:assembly/sparc/assem-rtns" :assem t) (comf "target:assembly/sparc/assem-rtns" :assem t)
(comf "target:assembly/sparc/array" :assem t) (comf "target:assembly/sparc/array" :assem t)
(comf "target:assembly/sparc/bit-bash" :assem t) (comf "target:assembly/sparc/bit-bash" :assem t)
(comf "target:assembly/sparc/arith" :assem t) (comf "target:assembly/sparc/arith" :assem t)
(comf "target:assembly/sparc/alloc" :assem t)) (comf "target:assembly/sparc/alloc" :assem t))
(when (string= (c:backend-name c:*backend*) "RT") (when (c:backend-featurep :rt)
(comf "target:assembly/rt/assem-rtns" :assem t) (comf "target:assembly/rt/assem-rtns" :assem t)
(comf "target:assembly/rt/array" :assem t) (comf "target:assembly/rt/array" :assem t)
(comf "target:assembly/rt/arith" :assem t) (comf "target:assembly/rt/arith" :assem t)
...@@ -101,11 +93,11 @@ ...@@ -101,11 +93,11 @@
#+mach (comf "target:code/mach-os") #+mach (comf "target:code/mach-os")
#+sunos (comf "target:code/sunos-os") #+sunos (comf "target:code/sunos-os")
(when (string= (c:backend-name c:*backend*) "PMAX") (when (c:backend-featurep :pmax)
(comf "target:code/pmax-vm")) (comf "target:code/pmax-vm"))
(when (string= (c:backend-name c:*backend*) "SPARC") (when (c:backend-featurep :sparc)
(comf "target:code/sparc-vm")) (comf "target:code/sparc-vm"))
(when (string= (c:backend-name c:*backend*) "RT") (when (c:backend-featurep :rt)
(comf "target:code/rt-vm")) (comf "target:code/rt-vm"))
(comf "target:code/symbol") (comf "target:code/symbol")
...@@ -140,7 +132,6 @@ ...@@ -140,7 +132,6 @@
(comf "target:code/backq") (comf "target:code/backq")
(comf "target:code/serve-event") (comf "target:code/serve-event")
(pushnew :serve-event *features*)
(comf "target:code/fd-stream") (comf "target:code/fd-stream")
(with-compilation-unit ; Until this code is shaken down more... (with-compilation-unit ; Until this code is shaken down more...
(:optimize '(optimize (safety 2) (debug 2))) (:optimize '(optimize (safety 2) (debug 2)))
......
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