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/compiler/TopLevel/interact/intconfig.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/intconfig.sml

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

revision 878, Wed Jul 18 17:43:27 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 1  Line 1 
1  (* COPYRIGHT (c) 1996 Bell Laboratories *)  (* COPYRIGHT (c) 1996 Bell Laboratories *)
2  (* intconfig.sml *)  (* intconfig.sml *)
3    
4  structure IntConfig : CCONFIG =  structure IntConfig : CCONFIG = struct
 struct  
   fun bug s = ErrorMsg.impossible ("IntConfig:" ^ s)  
   exception SilentException = BatchConfig.SilentException  
   
   type statenv = StaticEnv.staticEnv  
5    
6    type pickle = unit    type pickle = unit
7    type hash = unit    type hash = unit
   type lvar = Access.lvar  
   type pid = PersStamps.persstamp  
8    
9    val topCount = ref 0    val topCount = ref 0
10    
# Line 30  Line 23 
23    val stampGen = Stamps.newGenerator ()    val stampGen = Stamps.newGenerator ()
24    val mkMkStamp = fn () => stampGen     (* always the same *)    val mkMkStamp = fn () => stampGen     (* always the same *)
25  end (* structure IntConfig *)  end (* structure IntConfig *)
   

Legend:
Removed from v.878  
changed lines
  Added in v.879

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