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