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/alpha32Asm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha32/alpha32Asm.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 Alpha32AsmEmitter  functor Alpha32AsmEmitter
8    (structure Instr : ALPHA32INSTR    (structure Instr : ALPHA32INSTR
9     structure FlowGraph : FLOWGRAPH     structure PseudoOps : PSEUDO_OPS
10     structure Shuffle : ALPHA32SHUFFLE     structure Shuffle : ALPHA32SHUFFLE where I = Instr)  : EMITTER_NEW =
      sharing FlowGraph.I = Shuffle.I = Instr) : EMITTER_NEW =  
11  struct  struct
12    structure I = Instr    structure I = Instr
13    structure C = I.C    structure C = I.C
14    structure F = FlowGraph    structure P = PseudoOps
15    structure R = I.Region    structure R = I.Region
16    
17    structure Constant = I.Constant    structure Constant = I.Constant
# Line 23  Line 22 
22    
23    fun emit s = TextIO.output(!AsmStream.asmOutStream,s)    fun emit s = TextIO.output(!AsmStream.asmOutStream,s)
24    
25    fun pseudoOp pOp = emit(F.P.toString pOp)    fun pseudoOp pOp = emit(P.toString pOp)
26    
27    fun defineLabel(lab) = emit(Label.nameOf lab ^ ":\n")    fun defineLabel(lab) = emit(Label.nameOf lab ^ ":\n")
28    
# Line 247  Line 246 
246    
247    
248  (*  (*
249   * $Log$   * $Log: alpha32Asm.sml,v $
250     * Revision 1.2  1998/09/30 19:33:44  dbm
251     * fixing sharing/defspec conflict
252     *
253     * Revision 1.1.1.1  1998/04/08 18:39:00  george
254     * Version 110.5
255     *
256   *)   *)

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