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/depend/checksharing.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/depend/checksharing.sml

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

revision 398, Wed Aug 25 15:36:43 1999 UTC revision 537, Fri Feb 18 17:20:16 2000 UTC
# Line 45  Line 45 
45    
46          val smlmap = ref SmlInfoMap.empty          val smlmap = ref SmlInfoMap.empty
47    
48          fun bn (DG.PNODE _) = StringSet.empty          fun bn (DG.BNODE { bininfo = i, ... }) =
           | bn (DG.BNODE { bininfo = i, ... }) =  
49              case BinInfo.sh_mode i of              case BinInfo.sh_mode i of
50                  Sharing.DONTSHARE => StringSet.singleton (BinInfo.describe i)                  Sharing.DONTSHARE => StringSet.singleton (BinInfo.describe i)
51                | _ => StringSet.empty                | _ => StringSet.empty

Legend:
Removed from v.398  
changed lines
  Added in v.537

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