From 946e5f693e7c997e4e8503b3ca155ee160b4ee40 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 10 May 1991 03:27:06 +0000
Subject: [PATCH] Added RT support.

---
 tools/comcom.lisp | 40 ++++++++++++++++++++++++++++++++++++----
 1 file changed, 36 insertions(+), 4 deletions(-)

diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index 2c8b09836..6994c0cd9 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -40,11 +40,12 @@
 (defvar c::*target-backend* (c::make-backend))
 
 (when (string= (old-c:backend-name old-c:*backend*) "PMAX")
-  (comf "target:compiler/mips/parms" :proceed t)
-  (comf "target:compiler/generic/objdef" :proceed t))
+  (comf "target:compiler/mips/parms" :proceed t))
 (when (string= (old-c:backend-name old-c:*backend*) "SPARC")
-  (comf "target:compiler/sparc/parms" :proceed t)
-  (comf "target:compiler/generic/objdef" :proceed t))
+  (comf "target:compiler/sparc/parms" :proceed t))
+(when (string= (old-c:backend-name old-c:*backend*) "RT")
+  (comf "target:compiler/rt/params" :proceed t))
+(comf "target:compiler/generic/objdef" :proceed t)
 
 (comf "target:code/struct") ; For defstruct description structures.
 (comf "target:compiler/proclaim") ; For COOKIE structure.
@@ -164,6 +165,37 @@
   (comf "target:assembly/sparc/arith")
   (comf "target:assembly/sparc/alloc"))
 
+(when (string= (old-c:backend-name old-c:*backend*) "RT")
+  (comf "target:compiler/rt/insts")
+  (comf "target:compiler/rt/macros" :load *load-stuff*)
+  (comf "target:compiler/rt/vm")
+  (comf "target:compiler/rt/move")
+  (comf "target:compiler/rt/sap")
+  (comf "target:compiler/rt/system")
+  (comf "target:compiler/rt/char")
+  (comf "target:compiler/rt/float")
+  (comf "target:compiler/rt/memory")
+  (comf "target:compiler/rt/static-fn")
+  (comf "target:compiler/rt/arith")
+  (comf "target:compiler/rt/subprim")
+  (comf "target:compiler/rt/debug")
+  (comf "target:compiler/rt/c-call")
+  (comf "target:compiler/rt/cell")
+  (comf "target:compiler/rt/values")
+  (comf "target:compiler/rt/alloc")
+  (comf "target:compiler/rt/call")
+  (comf "target:compiler/rt/nlx")
+  (comf "target:compiler/rt/print")
+  (comf "target:compiler/rt/array")
+  (comf "target:compiler/rt/pred")
+  (comf "target:compiler/rt/type-vops")
+
+  (comf "target:assembly/rt/support" :load *load-stuff*)
+  (comf "target:assembly/rt/assem-rtns")
+  (comf "target:assembly/rt/array")
+  (comf "target:assembly/rt/arith")
+  (comf "target:assembly/rt/alloc"))
+
 (comf "target:compiler/pseudo-vops")
 
 ); with-compilation-unit for back end.
-- 
GitLab