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/Semant/pickle/pickmod-new.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/pickle/pickmod-new.sml

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

revision 631, Fri Apr 28 08:30:52 2000 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 37  Line 37 
37      datatype context =      datatype context =
38          INITIAL of ModuleId.tmap          INITIAL of ModuleId.tmap
39        | REHASH of PersStamps.persstamp        | REHASH of PersStamps.persstamp
40        | LIBRARY of ((string list * Symbol.symbol) option * ModuleId.tmap) list        | LIBRARY of ((int * Symbol.symbol) option * ModuleId.tmap) list
41    
42      type map      type map
43      val emptyMap : map      val emptyMap : map
# Line 77  Line 77 
77      datatype context =      datatype context =
78          INITIAL of ModuleId.tmap          INITIAL of ModuleId.tmap
79        | REHASH of PersStamps.persstamp        | REHASH of PersStamps.persstamp
80        | LIBRARY of ((string list * Symbol.symbol) option * ModuleId.tmap) list        | LIBRARY of ((int * Symbol.symbol) option * ModuleId.tmap) list
81    
82      (* to gather some statistics... *)      (* to gather some statistics... *)
83      val addPickles = Stats.addStat (Stats.makeStat "Pickle Bytes")      val addPickles = Stats.addStat (Stats.makeStat "Pickle Bytes")
# Line 714  Line 714 
714                    | (SOME stb, ownerOf) => [pid (ownerOf stb)]                    | (SOME stb, ownerOf) => [pid (ownerOf stb)]
715              else []              else []
716    
717          fun libModSpec lms = option (pair (list string, symbol)) lms          fun libModSpec lms = option (pair (int, symbol)) lms
718    
719          val stampConverter = Stamps.newConverter ()          val stampConverter = Stamps.newConverter ()
720    

Legend:
Removed from v.631  
changed lines
  Added in v.632

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