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 /MLRISC/trunk/flowgraph/pseudo-ops.sml
ViewVC logotype

View of /MLRISC/trunk/flowgraph/pseudo-ops.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2126 - (download) (annotate)
Thu Nov 2 16:11:29 2006 UTC (12 years, 10 months ago) by blume
File size: 893 byte(s)
moved MLRISC to toplevel
(* pseudo-ops.sml
 *
 * COPYRIGHT (c) 2001 Bell Labs, Lucent Technologies
 *
 * MLRISC pseudo-ops.
 * Ties together the assembler and client pseudo-ops
 *)


functor PseudoOps(structure Client : CLIENT_PSEUDO_OPS) : PSEUDO_OPS = struct
  structure Client = Client 
  structure Basis = Client.AsmPseudoOps
  structure T = Basis.T
  structure BT = PseudoOpsBasisTyp

  type pseudo_op = Client.pseudo_op Basis.pseudo_op

  fun toString(BT.EXT ext) = Client.toString ext
    | toString pOp = Basis.toString pOp

  fun sizeOf(BT.EXT ext, loc) = Client.sizeOf(ext, loc)
    | sizeOf(pOp, loc) = Basis.sizeOf(pOp, loc)

  fun emitValue(arg as {pOp, loc, emit}) = 
    (case pOp
      of BT.EXT ext => Client.emitValue{pOp=ext, loc=loc, emit=emit}
       | _ => Basis.emitValue arg
    (*esac*))

  fun adjustLabels(BT.EXT ext, loc) = Client.adjustLabels(ext, loc)
    | adjustLabels _ = false

end



root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0