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 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 15  Line 15 
15    type hash = unit    type hash = unit
16    type lvar = Access.lvar    type lvar = Access.lvar
17    type pid = PersStamps.persstamp    type pid = PersStamps.persstamp
18      type newContext = unit
19    
20    val topCount = ref 0    val topCount = ref 0
21    val pickUnpick : cmstatenv * statenv ->  
22                       {hash: hash, pickle: pickle, exportLvars: lvar list,    fun pickUnpick (compenv, newenv) = let
23                        exportPid: pid option, newenv: statenv}        val _ = topCount := !topCount + 1
     = fn (compenv, newenv) =>  
        let val _ = topCount := !topCount + 1  
24             val (newenv',hash,exportLvars,exportPid) =             val (newenv',hash,exportLvars,exportPid) =
25               PickMod.dontPickle(newenv,!topCount)               PickMod.dontPickle(newenv,!topCount)
26          in {hash=(),pickle=(),exportLvars=exportLvars,    in
27              exportPid=exportPid,newenv=newenv'}        { hash = (),
28            pickle = (),
29            exportLvars = exportLvars,
30            exportPid = exportPid,
31            newenv = newenv',
32            ctxt = () }
33         end         end
34    
35    val mkStamp = Stamps.new()    val mkStamp = Stamps.new()

Legend:
Removed from v.497  
changed lines
  Added in v.498

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