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 714, Mon Oct 23 23:39:43 2000 UTC revision 715, Thu Nov 2 07:51:04 2000 UTC
# Line 221  Line 221 
221                                           l)                                           l)
222                                        | join ((f, SOME (i, l')), (e, l)) =                                        | join ((f, SOME (i, l')), (e, l)) =
223                                          (e, B (f, i, l') :: l)                                          (e, B (f, i, l') :: l)
224                                      val ge = foldl join e0 (map fbn gi)                                      val ge = foldl join e0 (map lfbn gi)
225                                      val le = foldl join ge (map bn li)                                      val le = foldl join ge (map bn li)
226                                  in                                  in
227                                      case (BinInfo.sh_mode i, le) of                                      case (BinInfo.sh_mode i, le) of
# Line 262  Line 262 
262    
263                              and fbn (_, n) = bn n                              and fbn (_, n) = bn n
264    
265                                and lfbn th = fbn (th ())
266    
267                              fun sbn (DG.SB_SNODE n) =                              fun sbn (DG.SB_SNODE n) =
268                                  EM.impossible "Link:SNODE in stable lib"                                  EM.impossible "Link:SNODE in stable lib"
269                                | sbn (DG.SB_BNODE (n as DG.BNODE bnrec, _)) =                                | sbn (DG.SB_BNODE (n as DG.BNODE bnrec, _)) =

Legend:
Removed from v.714  
changed lines
  Added in v.715

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