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

Diff of /sml/trunk/src/compiler/TopLevel/environ/dynenv.sml

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

revision 44, Sun Mar 22 20:10:57 1998 UTC revision 45, Sun Mar 22 20:11:09 1998 UTC
# Line 1  Line 1 
1  (* dynenv.sml  (* Copyright 1996 by AT&T Bell Laboratories. *)
2   *  (* dynenv.sml *)
  * Copyright 1996 by AT&T Bell Laboratories.  
  *  
  *)  
   
 structure PersMap = MapF (struct  
     type elem=PersStamps.persstamp  
     fun pid1 < pid2 = (PersStamps.compare(pid1, pid2) = LESS)  
   end)  
3    
4  structure DynamicEnv : DYNENV =  structure DynamicEnv : DYNENV =
5  struct  struct
# Line 16  Line 8 
8    
9    structure Map = PersMap    structure Map = PersMap
10    
11    type object = Unsafe.Object.object    type object = CompBasic.object
12    
13    datatype dynenv = NORM of object Map.map * dynenv    datatype dynenv = NORM of object Map.map * dynenv
14                    | SPECIAL of (pid -> object) * dynenv                    | SPECIAL of (pid -> object) * dynenv
# Line 56  Line 48 
48    
49  end (* structure DynamicEnv *)  end (* structure DynamicEnv *)
50    
 (*  
  * $Log: dynenv.sml,v $  
  * Revision 1.2  1997/06/30  19:37:23  jhr  
  *   Removed System structure; added Unsafe structure.  
  *  
  * Revision 1.1.1.1  1997/01/14  01:38:36  george  
  *   Version 109.24  
  *  
  *)  

Legend:
Removed from v.44  
changed lines
  Added in v.45

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