CVS: sml-dist/src/MLRISC/amd64/flowgraph amd64-darwin-pseudo-ops.sml, NONE, 1.1 amd64GasPseudoOps.sml, NONE, 1.1

Update of /cvsroot/smlnj/sml-dist/src/MLRISC/amd64/flowgraph
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv621/amd64/flowgraph

Added Files:
	amd64-darwin-pseudo-ops.sml amd64GasPseudoOps.sml 
Log Message:
added AMD64 stuff to MLRISC tree

--- NEW FILE: amd64-darwin-pseudo-ops.sml ---
(* x86-darwin-pseudo-ops.sml
 *
 * COPYRIGHT (c) 2006 The SML/NJ Fellowship (www.smlnj.org)
 * All rights reserved.
 *)

functor AMD64DarwinPseudoOps 
   ( structure T : MLTREE
     structure MLTreeEval : MLTREE_EVAL  where T = T
    ) : PSEUDO_OPS_BASIS = 

struct
  structure T = T
  structure PB = PseudoOpsBasisTyp
  structure Fmt = Format

  structure Endian = 
     PseudoOpsLittle
	(structure T = T
	 structure MLTreeEval=MLTreeEval
	 val icache_alignment = 16
	 val max_alignment = SOME 7
	 val nop = {sz=1, en=0wx90: Word32.word})

  structure POps = DarwinPseudoOps(
      structure T = T
      val labFmt = {gPrefix="", aPrefix="L"})

  type 'a pseudo_op = (T.labexp, 'a) PB.pseudo_op
  
  fun error msg = MLRiscErrorMsg.error ("AMD64DarwinPseudoOps.", msg)

  val sizeOf = Endian.sizeOf
  val emitValue = Endian.emitValue
  val lexpToString = POps.lexpToString
  val toString = POps.toString
  val defineLabel = POps.defineLabel
end

--- NEW FILE: amd64GasPseudoOps.sml ---
(* x86GasPseudoOps.sml
 *
 * COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies
 *
 *)
functor AMD64GasPseudoOps 
   ( structure T : MLTREE
     structure MLTreeEval : MLTREE_EVAL  where T = T
    ) : PSEUDO_OPS_BASIS = 

struct
  structure T = T
  structure PB = PseudoOpsBasisTyp
  structure Fmt = Format

  structure Endian = 
     PseudoOpsLittle
	(structure T = T
	 structure MLTreeEval=MLTreeEval
	 val icache_alignment = 16
	 val max_alignment = SOME 7
	 val nop = {sz=1, en=0wx90: Word32.word})

  structure GasPseudoOps = 
     GasPseudoOps(structure T = T
		  val labFmt = {gPrefix="", aPrefix="L"})

  type 'a pseudo_op = (T.labexp, 'a) PB.pseudo_op
  
  fun error msg = MLRiscErrorMsg.error ("GasPseudoOps.", msg)

  val sizeOf = Endian.sizeOf
  val emitValue = Endian.emitValue
  val lexpToString = GasPseudoOps.lexpToString
  val toString = GasPseudoOps.toString
  val defineLabel = GasPseudoOps.defineLabel
end


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV