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

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

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

revision 299, Thu May 27 13:53:27 1999 UTC revision 305, Mon May 31 15:00:06 1999 UTC
# Line 10  Line 10 
10  signature BININFO = sig  signature BININFO = sig
11    
12      type info      type info
13        type ord_key = info
14      type complainer = GenericVC.ErrorMsg.complainer      type complainer = GenericVC.ErrorMsg.complainer
15        type region = GenericVC.SourceMap.region
16    
17        val new : { group: AbsPath.t * region,
18                    spec: string,
19                    offset: int,
20                    share: bool option } -> info
21    
22      val compare : info * info -> order      val compare : info * info -> order
23      val describe : info -> string      val describe : info -> string
# Line 31  Line 38 
38                    offset: int,                    offset: int,
39                    share: bool option }                    share: bool option }
40    
41        type ord_key = info
42    
43        val new = INFO
44    
45      fun compare (INFO i, INFO i') =      fun compare (INFO i, INFO i') =
46          case Int.compare (#offset i, #offset i') of          case Int.compare (#offset i, #offset i') of
47              EQUAL => AbsPath.compare (#1 (#group i), #1 (#group i'))              EQUAL => AbsPath.compare (#1 (#group i), #1 (#group i'))

Legend:
Removed from v.299  
changed lines
  Added in v.305

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