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

Diff of /sml/branches/SMLNJ/src/compiler/TopLevel/environ/dynenv.sml

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

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

Legend:
Removed from v.23  
changed lines
  Added in v.24

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