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

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/alpha32x/alpha32xMC.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/alpha32x/alpha32xMC.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 166, Sat Nov 7 20:11:41 1998 UTC revision 167, Sat Nov 7 20:11:41 1998 UTC
# Line 6  Line 6 
6    
7  functor Alpha32XMCEmitter  functor Alpha32XMCEmitter
8    (structure Instr : ALPHA32INSTR    (structure Instr : ALPHA32INSTR
9     structure FlowGraph : FLOWGRAPH     structure PseudoOps : PSEUDO_OPS) : EMITTER_NEW =
        sharing FlowGraph.I = Instr) : EMITTER_NEW =  
10  struct  struct
11    structure I = Instr    structure I = Instr
12    structure F = FlowGraph    structure P = PseudoOps
13      structure C = I.C      structure C = I.C
14    
15      structure LE = LabelExp      structure LE = LabelExp
# Line 45  Line 44 
44      fun emitstring s = Word8Vector.app emitbyte (Byte.stringToBytes s)      fun emitstring s = Word8Vector.app emitbyte (Byte.stringToBytes s)
45      fun comment msg = ()      fun comment msg = ()
46      fun init n = (CodeString.init n;  loc:=0)      fun init n = (CodeString.init n;  loc:=0)
47      fun pseudoOp pOp = F.P.emitValue{pOp=pOp, loc= !loc, emit=emitbyte}      fun pseudoOp pOp = P.emitValue{pOp=pOp, loc= !loc, emit=emitbyte}
48    
49      open Label      open Label
50      fun emitMCInstr(instr,regmap) = let      fun emitMCInstr(instr,regmap) = let
# Line 280  Line 279 
279    
280    
281  (*  (*
282   * $Log$   * $Log: alpha32xMC.sml,v $
283     * Revision 1.2  1998/09/30 18:52:42  dbm
284     * removed sharing/defspec conflict
285     *
286     * Revision 1.1.1.1  1998/04/08 18:39:54  george
287     * Version 110.5
288     *
289   *)   *)

Legend:
Removed from v.166  
changed lines
  Added in v.167

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