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 400, Thu Aug 26 16:23:37 1999 UTC revision 402, Fri Aug 27 07:50:43 1999 UTC
# Line 1  Line 1 
1    (*
2     * Link traversals.
3     *   - manages shared state
4     *
5     * (C) 1999 Lucent Technologies, Bell Laboratories
6     *
7     * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
8     *)
9  local  local
10      structure GP = GeneralParams      structure GP = GeneralParams
11      structure DG = DependencyGraph      structure DG = DependencyGraph
# Line 220  Line 228 
228                          end                          end
229                      in                      in
230                          case StableMap.find (!stablemap, i) of                          case StableMap.find (!stablemap, i) of
231                              SOME (B (f, i, l)) => (f, SOME (i, l))                              SOME (B (f, i, [])) =>
232                                    (case BinInfo.sh_mode i of
233                                         Sharing.DONTSHARE => (f, SOME (i, []))
234                                       | _ => (f, NONE))
235                              | SOME (B (f, i, l)) => (f, SOME (i, l))
236                            | NONE =>                            | NONE =>
237                                  (case StableMap.find (!localmap, i) of                                  (case StableMap.find (!localmap, i) of
238                                       SOME x => x                                       SOME x => x

Legend:
Removed from v.400  
changed lines
  Added in v.402

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