CVS: sml/src/MLRISC/x86/flowgraph x86-darwin-pseudo-ops.sml,NONE,1.1

Update of /cvsroot/smlnj/sml/src/MLRISC/x86/flowgraph
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1866/src/MLRISC/x86/flowgraph

Added Files:
	x86-darwin-pseudo-ops.sml 
Log Message:
  Updates to support Darwin-compatible assembly code generation.


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

functor X86DarwinPseudoOps 
   ( 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 ("X86DarwinPseudoOps.", msg)

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



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642