Commit 5806b1b6 authored by wlott's avatar wlott
Browse files

Added RT specific stuff.

parent b79d3f06
......@@ -18,7 +18,7 @@
(cons (intern (c:backend-name c:*backend*)
(find-package "KEYWORD"))
(remove-if #'(lambda (x)
(member x '(:pmax :sparc)))
(member x '(:pmax :sparc :rt)))
*features*))))
......@@ -40,6 +40,11 @@
(comf "target:assembly/sparc/arith" :assem t)
(comf "target:assembly/sparc/alloc" :assem t))
(when (string= (c:backend-name c:*backend*) "RT")
(comf "target:assembly/rt/assem-rtns" :assem t)
(comf "target:assembly/rt/array" :assem t)
(comf "target:assembly/rt/arith" :assem t)
(comf "target:assembly/rt/alloc" :assem t))
;;; these guys can supposedly come in any order, but not really.
;;; some are put at the end so macros don't run interpreted and stuff.
......@@ -77,6 +82,9 @@
(when (string= (c:backend-name c:*backend*) "SPARC")
(comf "target:code/sparc-machdef")
(comf "target:code/sparc-vm"))
(when (string= (c:backend-name c:*backend*) "RT")
(comf "target:code/rt-machdef")
(comf "target:code/rt-vm"))
(comf "target:code/symbol")
(comf "target:code/bignum")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment