Skip to content
Snippets Groups Projects
Commit 9063975d authored by wlott's avatar wlott
Browse files

Added hppa and x86 files.

Keep a bit more safety and debug-info when #-small.
parent e357e00e
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment