Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/TopLevel/interact/intconfig.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 879 - (view) (download)

1 : monnier 249 (* COPYRIGHT (c) 1996 Bell Laboratories *)
2 :     (* intconfig.sml *)
3 :    
4 : blume 879 structure IntConfig : CCONFIG = struct
5 : monnier 249
6 : blume 879 type pickle = unit
7 :     type hash = unit
8 : monnier 249
9 : blume 879 val topCount = ref 0
10 : monnier 249
11 : blume 879 fun pickUnpick { context, env = newenv } = let
12 :     val _ = topCount := !topCount + 1
13 :     val (newenv', hash, exportLvars, exportPid) =
14 :     PickMod.dontPickle (newenv, !topCount)
15 :     in
16 :     { hash = (),
17 :     pickle = (),
18 :     exportLvars = exportLvars,
19 :     exportPid = exportPid,
20 :     newenv = newenv' }
21 :     end
22 : monnier 498
23 : blume 879 val stampGen = Stamps.newGenerator ()
24 :     val mkMkStamp = fn () => stampGen (* always the same *)
25 : monnier 249 end (* structure IntConfig *)

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