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/unpickmod-new.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/pickle/unpickmod-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 19  Line 19 
19   *)   *)
20  signature UNPICKMOD = sig  signature UNPICKMOD = sig
21    
22      type context = (string list * Symbol.symbol) option -> ModuleId.tmap      type context = (int * Symbol.symbol) option -> ModuleId.tmap
23    
24      val unpickleEnv : context ->      val unpickleEnv : context ->
25                        PersStamps.persstamp * Word8Vector.vector ->                        PersStamps.persstamp * Word8Vector.vector ->
# Line 43  Line 43 
43    
44  structure UnpickMod : UNPICKMOD = struct  structure UnpickMod : UNPICKMOD = struct
45    
46      type context = (string list * Symbol.symbol) option -> ModuleId.tmap      type context = (int * Symbol.symbol) option -> ModuleId.tmap
47    
48      structure A = Access      structure A = Access
49      structure DI = DebIndex      structure DI = DebIndex
# Line 388  Line 388 
388          val { pid, string, symbol, access, conrep, consig,          val { pid, string, symbol, access, conrep, consig,
389                primop, boollist, tkind, tkindlist } = sharedStuff                primop, boollist, tkind, tkindlist } = sharedStuff
390    
391          fun libModSpec () =          fun libModSpec () = option lmsOptM (pair lmsPairM (int, symbol)) ()
             option lmsOptM (pair lmsPairM (stringlist, symbol)) ()  
392    
393          fun stamp () = let          fun stamp () = let
394              fun st #"A" = Stamps.global { pid = globalPid (),              fun st #"A" = Stamps.global { pid = globalPid (),

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