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

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

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

revision 293, Tue May 25 03:04:50 1999 UTC revision 294, Tue May 25 09:06:06 1999 UTC
# Line 1  Line 1 
1  (*  (*
2   * Internal data structure representing a CM dependency graph.   * Internal data structure representing a CM dependency graph.
3     * (fine-grain: compilation units)
4   *   *
5   * (C) 1999 Lucent Technologies, Bell Laboratories   * (C) 1999 Lucent Technologies, Bell Laboratories
6   *   *
# Line 15  Line 16 
16    
17      datatype bnode =      datatype bnode =
18          PNODE of primitive          PNODE of primitive
19        | BNODE of { bininfo: Dummy.t, (* BinInfo.info *)        | BNODE of { bininfo: BinInfo.info,
20                     localimports: bnode list,                     localimports: bnode list,
21                     globalimports: farbnode list }                     globalimports: farbnode list }
22    
# Line 36  Line 37 
37    
38      fun describeSBN (SB_BNODE (PNODE p)) = Primitive.toString p      fun describeSBN (SB_BNODE (PNODE p)) = Primitive.toString p
39        | describeSBN (SB_BNODE (BNODE { bininfo = i, ... })) =        | describeSBN (SB_BNODE (BNODE { bininfo = i, ... })) =
40          (ignore Dummy.v; "bininfo")          BinInfo.describe i
41        | describeSBN (SB_SNODE (SNODE { smlinfo = i, ... })) =        | describeSBN (SB_SNODE (SNODE { smlinfo = i, ... })) =
42          SmlInfo.fullName i          SmlInfo.fullName i
43    
# Line 45  Line 46 
46      (* comparing various nodes for equality *)      (* comparing various nodes for equality *)
47      fun beq (PNODE p, PNODE p') = Primitive.eq (p, p')      fun beq (PNODE p, PNODE p') = Primitive.eq (p, p')
48        | beq (BNODE { bininfo = i, ... }, BNODE { bininfo = i', ... }) =        | beq (BNODE { bininfo = i, ... }, BNODE { bininfo = i', ... }) =
49          (ignore Dummy.v; false)          BinInfo.eq (i, i')
50        | beq _ = false        | beq _ = false
51      fun seq (SNODE { smlinfo = i, ... }, SNODE { smlinfo = i', ... }) =      fun seq (SNODE { smlinfo = i, ... }, SNODE { smlinfo = i', ... }) =
52          SmlInfo.eq (i, i')          SmlInfo.eq (i, i')

Legend:
Removed from v.293  
changed lines
  Added in v.294

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