Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/CodeGen/x86/x86MLTree.sml
ViewVC logotype

View of /sml/trunk/src/compiler/CodeGen/x86/x86MLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log

Revision 412 - (download) (annotate)
Fri Sep 3 00:25:03 1999 UTC (21 years, 2 months ago) by monnier
File size: 1399 byte(s)
This commit was generated by cvs2svn to compensate for changes in r411,
which included commits to RCS files with non-trunk default branches.
(* specialised X86 instruction set *)
structure X86Instr = 
  X86Instr(structure Const=SMLNJConstant
	   structure Region=CPSRegions)

structure X86Rewrite = X86Rewrite(X86Instr)

structure X86Shuffle = X86Shuffle(X86Instr)

structure X86PseudoOps = 
  PseudoOpsLittle(structure M=X86Spec val nop = SOME(0wx90:Word8.word))

structure X86MemRegs = X86MemRegs(X86Instr)

(* Flowgraph data structure specialized to X86 instructions *)
structure X86FlowGraph = 
  FlowGraph(structure I=X86Instr 
	    structure P=X86PseudoOps
	    structure B=FunctionNames)

structure X86Stream = InstructionStreamFn(structure P = X86PseudoOps
                                          structure B = FunctionNames)

(* Assembly code emmitter *)
structure X86AsmEmitter=
  X86AsmEmitter(structure Instr=X86Instr
		structure PseudoOps=X86PseudoOps
		structure Shuffle=X86Shuffle
                structure Stream=X86Stream
		structure MemRegs=X86MemRegs)
(* Machine code emitter *)
structure X86MCEmitter = 
  X86MCEmitter(structure Instr=X86Instr
	       structure Shuffle=X86Shuffle
	       structure AsmEmitter=X86AsmEmitter
	       structure MemRegs=X86MemRegs)

(* MLTree specialization *)
structure X86MLTree = 
  MLTreeF(structure Const=SMLNJConstant
	  structure P=X86PseudoOps
	  structure R=CPSRegions
	  structure B=FunctionNames
          type rextension = unit
          type fextension = unit

ViewVC Help
Powered by ViewVC 1.0.0