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/compiler/TopLevel/backend/backend-fn.sml
ViewVC logotype

Diff of /sml/trunk/compiler/TopLevel/backend/backend-fn.sml

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

revision 3265, Tue Jan 13 17:42:58 2009 UTC revision 3266, Tue Jan 13 20:04:31 2009 UTC
# Line 58  Line 58 
58    
59                    fun pickUnpick { context, env = newenv, guid } = let                    fun pickUnpick { context, env = newenv, guid } = let
60                        val m = GenModIdMap.mkMap context                        val m = GenModIdMap.mkMap context
61                        fun up_context _ = m                        fun up_context _ = (m, fn () => "batch context")
62                        val { hash, pickle, exportLvars, hasExports } =                        val { hash, pickle, exportLvars, hasExports } =
63                            PickMod.pickleEnv (PickMod.INITIAL m) newenv                            PickMod.pickleEnv (PickMod.INITIAL m) newenv
64                        val pid = Rehash.addGUID { hash = hash, guid = guid }                        val pid = Rehash.addGUID { hash = hash, guid = guid }

Legend:
Removed from v.3265  
changed lines
  Added in v.3266

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