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