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

Diff of /sml/trunk/src/MLRISC/emit/asmStream.sml

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

revision 245, Sat Apr 17 18:47:12 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 7  Line 7 
7  (* AsmStream - this structure is available to all codegenerators.  (* AsmStream - this structure is available to all codegenerators.
8   *             Typically asmOutStream is rebound to a file.   *             Typically asmOutStream is rebound to a file.
9   *)   *)
   
10  signature ASM_STREAM = sig  signature ASM_STREAM = sig
11    val asmOutStream : TextIO.outstream ref    val asmOutStream : TextIO.outstream ref
12    val withStream : TextIO.outstream -> ('a -> 'b) -> 'a -> 'b    val withStream : TextIO.outstream -> ('a -> 'b) -> 'a -> 'b
13  end  end
14    
15  structure AsmStream : ASM_STREAM = struct  structure AsmStream = struct
16    val asmOutStream = ref TextIO.stdOut    val asmOutStream = ref TextIO.stdOut
17    fun withStream stream body x = let    fun withStream stream body x = let
18       val s = !asmOutStream       val s = !asmOutStream
# Line 26  Line 25 
25    
26    
27    
 (*  
  * $Log: asmStream.sml,v $  
  * Revision 1.1.1.1  1998/11/16 21:48:19  george  
  *  Version 110.10  
  *  
  * Revision 1.2  1998/10/06 14:07:43  george  
  * Flowgraph has been removed from modules that do not need it.  
  * Changes to compiler/CodeGen/*/*{MLTree,CG}.sml necessary.  
  *                                              [leunga]  
  *  
  * Revision 1.1.1.1  1998/04/08 18:39:01  george  
  * Version 110.5  
  *  
  *)  

Legend:
Removed from v.245  
changed lines
  Added in v.411

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