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

Diff of /sml/branches/SMLNJ/src/MLRISC/mlrisc/asmStream.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 8  Line 8 
8   *             Typically asmOutStream is rebound to a file.   *             Typically asmOutStream is rebound to a file.
9   *)   *)
10    
11  structure AsmStream =  structure AsmStream = struct
     struct  
12          val asmOutStream = ref TextIO.stdOut          val asmOutStream = ref TextIO.stdOut
13      fun withStream stream body x = let
14         val s = !asmOutStream
15         val _ = asmOutStream := stream
16      in
17        (body x before asmOutStream := s)
18           handle e => (asmOutStream := s; raise e)
19      end
20      end      end
21    
22    
23    
24  (*  (*
25   * $Log$   * $Log: asmStream.sml,v $
26     * Revision 1.1.1.1  1998/04/08 18:39:01  george
27     * Version 110.5
28     *
29   *)   *)

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