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/cm/compile/link.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/link.sml

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

revision 404, Wed Sep 1 07:03:22 1999 UTC revision 444, Thu Sep 16 05:32:14 1999 UTC
# Line 159  Line 159 
159                      handle exn =>                      handle exn =>
160                          exn_err ("unable to load library module",                          exn_err ("unable to load library module",
161                                   error, descr, exn)                                   error, descr, exn)
                 val epid = BF.exportPidOf bfc  
162              in              in
163                  execute (bfc, e)                  execute (bfc, e)
164                  handle exn => exn_err ("link-time exception in library code",                  handle exn => exn_err ("link-time exception in library code",
# Line 272  Line 271 
271          in          in
272              if SrcPathSet.member (!visited, grouppath) then ()              if SrcPathSet.member (!visited, grouppath) then ()
273              else (visited := SrcPathSet.add (!visited, grouppath);              else (visited := SrcPathSet.add (!visited, grouppath);
274                    app registerGroup sublibs;                    app (registerGroup o #2) sublibs;
275                    case kind of                    case kind of
276                        GG.STABLELIB => registerStableLib g                        GG.STABLELIB => registerStableLib g
277                      | _ => ())                      | _ => ())

Legend:
Removed from v.404  
changed lines
  Added in v.444

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