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/batch/batchutil.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/batch/batchutil.sml

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

revision 17, Wed Mar 11 21:00:18 1998 UTC revision 93, Tue May 12 21:56:22 1998 UTC
# Line 4  Line 4 
4  functor BatchUtilFun(C : COMPILE) : BATCHUTIL =  functor BatchUtilFun(C : COMPILE) : BATCHUTIL =
5  struct  struct
6      structure Pid = PersStamps      structure Pid = PersStamps
7      structure Env = SCEnv.Env      structure Env = CMEnv.Env
8      structure Err = ErrorMsg      structure Err = ErrorMsg
9    
10      exception FormatError      exception FormatError
# Line 216  Line 216 
216                  else error "missing/excess bytes in bin file"                  else error "missing/excess bytes in bin file"
217          val b'senv = UnpickMod.unpickleEnv (context, { hash = staticPid,          val b'senv = UnpickMod.unpickleEnv (context, { hash = staticPid,
218                                                         pickle = penv })                                                         pickle = penv })
219          val senv = SCStaticEnv.SC b'senv          val senv = CMStaticEnv.CM b'senv
220          in          in
221            CU {            CU {
222                imports = imports, exportPid = exportPid, references = iid,                imports = imports, exportPid = exportPid, references = iid,
# Line 333  Line 333 
333          end          end
334    
335  end (* functor BatchUtilFun *)  end (* functor BatchUtilFun *)
336    
337    (*
338     * $Log: batchutil.sml,v $
339     * Revision 1.1.1.1  1998/04/08 18:39:15  george
340     * Version 110.5
341     *
342     *)

Legend:
Removed from v.17  
changed lines
  Added in v.93

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