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/stable/stabilize.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 323, Wed Jun 9 06:16:22 1999 UTC revision 329, Fri Jun 11 09:53:10 1999 UTC
# Line 272  Line 272 
272              val sz = size pickle              val sz = size pickle
273              val offset_adjustment = sz + 4              val offset_adjustment = sz + 4
274    
275              fun mkStableGroup () = let              fun mkStableGroup spath = let
276                  val m = ref SmlInfoMap.empty                  val m = ref SmlInfoMap.empty
277                  fun sn (DG.SNODE (n as { smlinfo, ... })) =                  fun sn (DG.SNODE (n as { smlinfo, ... })) =
278                      case SmlInfoMap.find (!m, smlinfo) of                      case SmlInfoMap.find (!m, smlinfo) of
# Line 288  Line 288 
288                              val locs = SmlInfo.errorLocation gp smlinfo                              val locs = SmlInfo.errorLocation gp smlinfo
289                              val error = EM.errorNoSource grpSrcInfo locs                              val error = EM.errorNoSource grpSrcInfo locs
290                              val i = BinInfo.new { group = grouppath,                              val i = BinInfo.new { group = grouppath,
291                                                      stablepath = spath,
292                                                    spec = spec,                                                    spec = spec,
293                                                    offset = offset,                                                    offset = offset,
294                                                    share = share,                                                    share = share,
# Line 337  Line 338 
338                   app (cpb outs) memberlist;                   app (cpb outs) memberlist;
339                   app delb memberlist;                   app delb memberlist;
340                   BinIO.closeOut outs;                   BinIO.closeOut outs;
341                   SOME (mkStableGroup ()))                   SOME (mkStableGroup spath))
342          in          in
343              Interrupt.guarded try              Interrupt.guarded try
344              handle e as Interrupt.Interrupt => (BinIO.closeOut outs;              handle e as Interrupt.Interrupt => (BinIO.closeOut outs;
# Line 561  Line 562 
562              val error = EM.errorNoSource grpSrcInfo locs              val error = EM.errorNoSource grpSrcInfo locs
563          in          in
564              BinInfo.new { group = group,              BinInfo.new { group = group,
565                              stablepath = spath,
566                            error = error,                            error = error,
567                            spec = spec,                            spec = spec,
568                            offset = offset,                            offset = offset,

Legend:
Removed from v.323  
changed lines
  Added in v.329

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