Skip to content
Snippets Groups Projects
Commit 049d11ae authored by wlott's avatar wlott
Browse files

Moved assemfile to .../assembly and moved assembly code into a machine

specific subdir.  Added a load of assem:mips/arith.
parent 1e11e12b
No related branches found
No related tags found
No related merge requests found
......@@ -4,87 +4,89 @@
;;;
(in-package "C")
(setf *load-verbose* t)
#-new-compiler
(progn
(ext:gc-off)
(load "code:fdefinition" :verbose t)
(load "c:globaldb" :verbose t)
(load "code:fdefinition")
(load "c:globaldb")
(globaldb-init)
(load "c:patch" :verbose t)
(load "code:macros" :verbose t)
(load "code:struct" :verbose t)
(load "c:proclaim" :verbose t)
(load "code:extensions" :verbose t)
(load "code:defmacro" :verbose t)
(load "code:sysmacs" :verbose t)
(load "code:defrecord" :verbose t)
(load "code:error" :verbose t)
(load "code:debug-info" :verbose t)
(load "code:defstruct" :verbose t)
(load "code:c-call" :verbose t)
(load "code:salterror" :verbose t)
(load "code:machdef" :verbose t)
(load "c:boot-globaldb" :verbose t))
(load "c:macros" :verbose t)
#-pmax (load "c:type" :verbose t)
#-pmax (load "c:vm-type" :verbose t)
#-pmax (load "c:type-init" :verbose t)
(load "c:patch")
(load "code:macros")
(load "code:struct")
(load "c:proclaim")
(load "code:extensions")
(load "code:defmacro")
(load "code:sysmacs")
(load "code:defrecord")
(load "code:error")
(load "code:debug-info")
(load "code:defstruct")
(load "code:c-call")
(load "code:salterror")
(load "code:machdef")
(load "c:boot-globaldb"))
(load "c:macros")
#-pmax (load "c:type")
#-pmax (load "c:vm-type")
#-pmax (load "c:type-init")
#-pmax (setq *type-system-initialized* t)
#+pmax (load "mips:parms")
(load "c:sset" :verbose t)
(load "c:node" :verbose t)
(load "c:alloc" :verbose t)
(load "c:ctype" :verbose t)
(load "c:knownfun" :verbose t)
(load "c:fndb" :verbose t)
#+pmax (load "mips:vm-fndb" :verbose t)
(load "c:ir1util" :verbose t)
(load "c:ir1tran" :verbose t)
(load "c:ir1final" :verbose t)
(load "c:srctran" :verbose t)
(load "c:seqtran" :verbose t)
(load "c:typetran" :verbose t)
#+pmax (load "mips:vm-typetran" :verbose t)
#+pmax (load "c:float-tran" :verbose t)
(load "c:locall" :verbose t)
(load "c:dfo" :verbose t)
(load "c:ir1opt" :verbose t)
;(load "c:loop" :verbose t)
(load "c:checkgen" :verbose t)
(load "c:constraint" :verbose t)
(load "c:envanal" :verbose t)
(load "c:sset")
(load "c:node")
(load "c:alloc")
(load "c:ctype")
(load "c:knownfun")
(load "c:fndb")
#+pmax (load "mips:vm-fndb")
(load "c:ir1util")
(load "c:ir1tran")
(load "c:ir1final")
(load "c:srctran")
(load "c:seqtran")
(load "c:typetran")
#+pmax (load "mips:vm-typetran")
#+pmax (load "c:float-tran")
(load "c:locall")
(load "c:dfo")
(load "c:ir1opt")
;(load "c:loop")
(load "c:checkgen")
(load "c:constraint")
(load "c:envanal")
#-pmax
(load "c:parms" :verbose t)
(load "c:vop" :verbose t)
(load "c:tn" :verbose t)
(load "c:bit-util" :verbose t)
(load "c:life" :verbose t)
(load "c:vmdef" :verbose t)
(load "c:gtn" :verbose t)
(load "c:ltn" :verbose t)
(load "c:stack" :verbose t)
(load "c:control" :verbose t)
(load "c:entry" :verbose t)
(load "c:ir2tran" :verbose t)
(load "c:pack" :verbose t)
(load "c:codegen" :verbose t)
(load "c:main" :verbose t)
(load "c:assembler" :verbose t)
#+pmax (load "mips:dismips" :verbose t)
#+pmax (load "mips:assemfile" :verbose t)
#-pmax (load "c:assem-insts" :verbose t)
#+pmax (load "mips:mips-insts" :verbose t)
#-pmax (load "c:assem-macs" :verbose t)
#+pmax (load "mips:mips-macs" :verbose t)
(load "c:aliencomp" :verbose t)
(load "c:debug-dump" :verbose t)
(load "c:parms")
(load "c:vop")
(load "c:tn")
(load "c:bit-util")
(load "c:life")
(load "c:vmdef")
(load "c:gtn")
(load "c:ltn")
(load "c:stack")
(load "c:control")
(load "c:entry")
(load "c:ir2tran")
(load "c:pack")
(load "c:codegen")
(load "c:main")
(load "c:assembler")
(load "assem:assemfile")
#+pmax (load "mips:dismips")
#-pmax (load "c:assem-insts")
#+pmax (load "mips:mips-insts")
#-pmax (load "c:assem-macs")
#+pmax (load "mips:mips-macs")
(load "c:aliencomp")
(load "c:debug-dump")
#-new-compiler
(load "code:alieneval" :verbose t)
(load "code:alieneval")
#+rt-target(progn
#-new-compiler
......@@ -92,32 +94,32 @@
(format t "~%~A~%Continuing...~%" condition)
(continue))))
(progn
(load "code:constants" :verbose t)
(load "assem:rompconst" :verbose t)))
(load "code:constants")
(load "assem:rompconst")))
#-new-compiler
(load "c:fop" :verbose t)
(load "c:fop")
(load "c:dump" :verbose t)
(load "c:dump")
#+new-compiler
(load "c:core" :verbose t)
(load "c:vm" :verbose t)
(load "c:move" :verbose t)
(load "c:char" :verbose t)
(load "c:miscop" :verbose t)
(load "c:subprim" :verbose t)
(load "c:print" :verbose t)
(load "c:memory" :verbose t)
(load "c:cell" :verbose t)
(load "c:call" :verbose t)
(load "c:nlx" :verbose t)
(load "c:values" :verbose t)
(load "c:array" :verbose t)
(load "c:pred" :verbose t)
(load "c:system" :verbose t)
(load "c:type-vops" :verbose t)
(load "c:arith" :verbose t)
(load "c:core")
(load "c:vm")
(load "c:move")
(load "c:char")
(load "c:miscop")
(load "c:subprim")
(load "c:print")
(load "c:memory")
(load "c:cell")
(load "c:call")
(load "c:nlx")
(load "c:values")
(load "c:array")
(load "c:pred")
(load "c:system")
(load "c:type-vops")
(load "c:arith")
); #+RT-TARGET PROGN
#+pmax(progn
......@@ -146,27 +148,29 @@
(load "mips:pred")
(load "mips:type-vops")
(load "mips:vm-tran")
(load "assem:assem-rtns-vops")
(load "assem:bit-bash-vops")
(load "assem:array-vops")
#+pmax (load "assem:mips/assem-rtns")
#+pmax (load "assem:mips/bit-bash")
#+pmax (load "assem:mips/array")
#+pmax (load "assem:mips/arith")
); mips progn
(load "c:pseudo-vops" :verbose t)
#-pmax (load "c:vm-tran" :verbose t)
#+pmax (load "mips:vm-tran" :verbose t)
(load "c:debug" :verbose t)
(load "c:represent" :verbose t)
(load "c:pseudo-vops")
#-pmax (load "c:vm-tran")
#+pmax (load "mips:vm-tran")
(load "c:debug")
(load "c:represent")
#+new-compiler
(load "c:eval-comp" :verbose t)
(load "c:eval-comp")
#+new-compiler
(load "c:eval" :verbose t)
(load "c:eval")
#-new-compiler
(progn
#+rt-target
(load "assem:assembler" :verbose t)
(load "assem:assembler")
(%proclaim '(optimize (debug-info 2)))
(setq *info-environment*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment