From 9063975daabe021945306a830dea05d9a9e765c1 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 14 Jul 1992 03:51:15 +0000
Subject: [PATCH] Added hppa and x86 files. Keep a bit more safety and
 debug-info when #-small.

---
 tools/comcom.lisp | 98 ++++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 85 insertions(+), 13 deletions(-)

diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index 8cd1952d1..13aad1be3 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -24,7 +24,7 @@
 		(debug-info #+small .5 #-small 2))
      :optimize-interface
      '(optimize-interface (safety #+small 1 #-small 2)
-			  (debug-info .5))
+			  (debug-info #+small .5 #-small 2))
      :context-declarations
      '(#+small
        ((:or :macro
@@ -39,12 +39,16 @@
 
 (defvar c::*target-backend* (c::make-backend))
 
-(when (string= (old-c:backend-name old-c:*backend*) "PMAX")
+(when (c:target-featurep :pmax)
   (comf "target:compiler/mips/parms" :proceed t))
-(when (string= (old-c:backend-name old-c:*backend*) "SPARC")
+(when (c:target-featurep :sparc)
   (comf "target:compiler/sparc/parms" :proceed t))
-(when (string= (old-c:backend-name old-c:*backend*) "RT")
+(when (c:target-featurep :rt)
   (comf "target:compiler/rt/params" :proceed t))
+(when (c:target-featurep :hppa)
+  (comf "target:compiler/hppa/parms" :proceed t))
+(when (c:target-featurep :x86)
+  (comf "target:compiler/hppa/x86" :proceed t))
 (comf "target:compiler/generic/objdef" :proceed t)
 (comf "target:compiler/generic/interr")
 
@@ -61,8 +65,9 @@
 (comf "target:compiler/vop" :proceed t)
 (comf "target:compiler/vmdef" :load *load-stuff* :proceed t)
 
-(comf "target:compiler/assembler" :proceed t)
-(comf "target:compiler/disassem")
+(unless (c:target-featurep '(or :hppa :x86))
+  (comf "target:compiler/assembler" :proceed t)
+  (comf "target:compiler/disassem"))
 (comf "target:compiler/new-assem")
 (comf "target:compiler/alloc")
 (comf "target:compiler/knownfun")
@@ -101,9 +106,9 @@
 (comf "target:assembly/assemfile" :load *load-stuff*)
 
 (with-compilation-unit
-    (:optimize '(optimize (safety 0) (debug-info 1)))
+    (:optimize '(optimize (safety #+small 0 #-small 1) #+small (debug-info 1)))
 
-(when (string= (old-c:backend-name old-c:*backend*) "PMAX")
+(when (c:target-featurep :pmax)
   (comf "target:compiler/mips/insts")
   (comf "target:compiler/mips/macros" :load *load-stuff*)
   (comf "target:compiler/mips/vm")
@@ -135,7 +140,7 @@
   (comf "target:assembly/mips/arith")
   (comf "target:assembly/mips/alloc"))
 
-(when (string= (old-c:backend-name old-c:*backend*) "SPARC")
+(when (c:target-featurep :sparc)
   (comf "target:compiler/sparc/insts")
   (comf "target:compiler/sparc/macros" :load *load-stuff*)
   (comf "target:compiler/sparc/vm")
@@ -167,12 +172,12 @@
   (comf "target:assembly/sparc/arith")
   (comf "target:assembly/sparc/alloc"))
 
-(when (string= (old-c:backend-name old-c:*backend*) "RT")
+(when (c:target-featurep :rt)
   (comf "target:compiler/rt/insts")
   (comf "target:compiler/rt/macros" :load *load-stuff*)
   (comf "target:compiler/rt/vm")
   (comf "target:compiler/rt/move")
-  (if (eq vm::*target-float-hardware* :afpa)
+  (if (c:target-featurep :afpa)
       (comf "target:compiler/rt/afpa")
       (comf "target:compiler/rt/mc68881"))
   (comf "target:compiler/rt/sap")
@@ -200,6 +205,70 @@
   (comf "target:assembly/rt/arith")
   (comf "target:assembly/rt/alloc"))
 
+(when (c:target-featurep :hppa)
+  (comf "target:compiler/hppa/insts")
+  (comf "target:compiler/hppa/macros" :load *load-stuff*)
+  (comf "target:compiler/hppa/vm")
+  (comf "target:compiler/generic/primtype")
+  (comf "target:assembly/hppa/support" :load *load-stuff*)
+  (comf "target:compiler/hppa/move")
+  (comf "target:compiler/hppa/float")
+  (comf "target:compiler/hppa/sap")
+  (comf "target:compiler/hppa/system")
+  (comf "target:compiler/hppa/char")
+  (comf "target:compiler/hppa/memory")
+  (comf "target:compiler/hppa/static-fn")
+  (comf "target:compiler/hppa/arith")
+  (comf "target:compiler/hppa/subprim")
+  (comf "target:compiler/hppa/debug")
+  (comf "target:compiler/hppa/c-call")
+  (comf "target:compiler/hppa/cell")
+  (comf "target:compiler/hppa/values")
+  (comf "target:compiler/hppa/alloc")
+  (comf "target:compiler/hppa/call")
+  (comf "target:compiler/hppa/nlx")
+  (comf "target:compiler/hppa/print")
+  (comf "target:compiler/hppa/array")
+  (comf "target:compiler/hppa/pred")
+  (comf "target:compiler/hppa/type-vops")
+
+  (comf "target:assembly/hppa/assem-rtns")
+  (comf "target:assembly/hppa/array")
+  (comf "target:assembly/hppa/arith")
+  (comf "target:assembly/hppa/alloc"))
+
+(when (c:target-featurep :x86)
+  (comf "target:compiler/x86/insts")
+  (comf "target:compiler/x86/macros" :load *load-stuff*)
+  (comf "target:compiler/x86/vm")
+  (comf "target:compiler/generic/primtype")
+  (comf "target:assembly/x86/support" :load *load-stuff*)
+  (comf "target:compiler/x86/move")
+  (comf "target:compiler/x86/float")
+  (comf "target:compiler/x86/sap")
+  (comf "target:compiler/x86/system")
+  (comf "target:compiler/x86/char")
+  (comf "target:compiler/x86/memory")
+  (comf "target:compiler/x86/static-fn")
+  (comf "target:compiler/x86/arith")
+  (comf "target:compiler/x86/subprim")
+  (comf "target:compiler/x86/debug")
+  (comf "target:compiler/x86/c-call")
+  (comf "target:compiler/x86/cell")
+  (comf "target:compiler/x86/values")
+  (comf "target:compiler/x86/alloc")
+  (comf "target:compiler/x86/call")
+  (comf "target:compiler/x86/nlx")
+  (comf "target:compiler/x86/print")
+  (comf "target:compiler/x86/array")
+  (comf "target:compiler/x86/pred")
+  (comf "target:compiler/x86/type-vops")
+
+  (comf "target:assembly/x86/assem-rtns")
+  (comf "target:assembly/x86/array")
+  (comf "target:assembly/x86/arith")
+  (comf "target:assembly/x86/alloc"))
+
 (comf "target:compiler/pseudo-vops")
 
 ); with-compilation-unit for back end.
@@ -217,7 +286,8 @@
     (:optimize '(optimize (debug-info 2) (safety 1)))
   (comf "target:compiler/ir2tran"))
 (comf "target:compiler/copyprop")
-(comf "target:compiler/assem-opt")
+(unless (c:target-featurep '(or :hppa :x86))
+  (comf "target:compiler/assem-opt"))
 (with-compilation-unit
     (:optimize '(optimize (debug-info 2) (safety 1)))
   (comf "target:compiler/represent"))
@@ -236,7 +306,9 @@
 (comf "target:compiler/dump")
 
 (comf "target:compiler/generic/core")
-(comf "target:compiler/generic/genesis")
+(if (c:target-featurep '(or :hppa :x86))
+    (comf "target:compiler/generic/new-genesis")
+    (comf "target:compiler/generic/genesis"))
 
 (comf "target:compiler/eval-comp")
 (comf "target:compiler/eval")
-- 
GitLab