From 5806b1b64beafaed27fbd3385db8f4e637c27e9f Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Apr 1991 01:16:14 +0000 Subject: [PATCH] Added RT specific stuff. --- tools/worldcom.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index a907a04b8..800280424 100644 --- a/tools/worldcom.lisp +++ b/tools/worldcom.lisp @@ -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") -- GitLab