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/trunk/src/MLRISC/alpha32/alpha32MC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha32/alpha32MC.sml

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

revision 113, Fri Jun 5 19:41:21 1998 UTC revision 167, Sat Nov 7 20:11:41 1998 UTC
# Line 6  Line 6 
6    
7  functor Alpha32MCEmitter  functor Alpha32MCEmitter
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 emitInstr(instr,regmap) = let      fun emitInstr(instr,regmap) = let
# Line 279  Line 278 
278    
279    
280  (*  (*
281   * $Log$   * $Log: alpha32MC.sml,v $
282     * Revision 1.2  1998/09/30 19:34:21  dbm
283     * fixing sharing/defspec conflict
284     *
285     * Revision 1.1.1.1  1998/04/08 18:39:01  george
286     * Version 110.5
287     *
288   *)   *)

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

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