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/alpha32/alpha32MLTree.sml
ViewVC logotype

View of /sml/trunk/src/compiler/CodeGen/alpha32/alpha32MLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log

Revision 984 - (download) (annotate)
Wed Nov 21 19:00:08 2001 UTC (18 years, 6 months ago) by george
File size: 2250 byte(s)
  Implemented a complete redesign of MLRISC pseudo-ops. Now there
  ought to never be any question of incompatabilities with
  pseudo-op syntax expected by host assemblers.

  For now, only modules supporting GAS syntax are implemented
  but more should follow, such as MASM, and vendor assembler
  syntax, e.g. IBM as, Sun as, etc.
structure Alpha32MLTree = 
  MLTreeF(structure Constant=SMLNJConstant
	  structure Region=CPSRegions
	  structure Extension=SMLNJMLTreeExt

structure Alpha32MLTreeEval =
      (structure T = Alpha32MLTree
       fun eq _ _ =  false
       val eqRext = eq	 val eqFext = eq
       val eqCCext = eq	 val eqSext = eq)
structure Alpha32MLTreeHash = 
     (structure T = Alpha32MLTree
      fun h _ _ = 0w0
      val hashRext = h	 val hashFext = h
      val hashCCext = h  val hashSext = h)

structure Alpha32GasPseudoOps = 
   AlphaGasPseudoOps(structure T=Alpha32MLTree
		     structure MLTreeEval = Alpha32MLTreeEval)

structure Alpha32ClientPseudoOps = 
   SMLNJPseudoOps(structure Asm = Alpha32GasPseudoOps)

structure Alpha32PseudoOps = PseudoOps(structure Client=Alpha32ClientPseudoOps)

structure Alpha32Stream = InstructionStream(Alpha32PseudoOps)

structure Alpha32MLTreeStream = 
     (structure T = Alpha32MLTree
      structure S = Alpha32Stream)

(* specialised alpha32 instruction set *)
structure Alpha32Instr = AlphaInstr(Alpha32MLTree)

structure Alpha32Props = 
   AlphaProps(structure Instr=Alpha32Instr
	      structure MLTreeHash=Alpha32MLTreeHash
	      structure MLTreeEval=Alpha32MLTreeEval)

structure Alpha32Shuffle = AlphaShuffle(Alpha32Instr)

structure Alpha32AsmEmitter=
  AlphaAsmEmitter(structure Instr=Alpha32Instr
	          structure PseudoOps=Alpha32PseudoOps
                  structure Stream=Alpha32Stream
		  structure Shuffle = Alpha32Shuffle
		  structure MLTreeEval=Alpha32MLTreeEval
		  structure S=Alpha32Stream)

structure Alpha32MCEmitter = 
  AlphaMCEmitter(structure Instr=Alpha32Instr
		 structure PseudoOps=Alpha32PseudoOps
	         structure MLTreeEval=Alpha32MLTreeEval
                 structure Stream=Alpha32Stream
		 structure CodeString=CodeString)

structure Alpha32PseudoInstrs = Alpha32PseudoInstrs(Alpha32Instr)

(* Flowgraph data structure specialized to DEC alpha instructions *)
structure Alpha32CFG = 
     (structure I = Alpha32Instr
      structure PseudoOps = Alpha32PseudoOps
      structure GraphImpl = DirectedGraph
      structure InsnProps = Alpha32Props
      structure Asm = Alpha32AsmEmitter)

ViewVC Help
Powered by ViewVC 1.0.0