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/compiler/Semant/types/tuples.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/types/tuples.sml

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

revision 249, Sat Apr 17 18:57:03 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 25  Line 25 
25  datatype labelOpt = NOlabel | SOMElabel of label  datatype labelOpt = NOlabel | SOMElabel of label
26  datatype tyconOpt = NOtycon | SOMEtycon of tycon  datatype tyconOpt = NOtycon | SOMEtycon of tycon
27    
28  structure LabelArray = Dynamic (  structure LabelArray = DynamicArrayFn (
29    struct    struct
30      open Array      open Array
31      type array = labelOpt array      type array = labelOpt array
# Line 33  Line 33 
33      type elem = labelOpt      type elem = labelOpt
34    end)    end)
35    
36  structure TyconArray = Dynamic (  structure TyconArray = DynamicArrayFn (
37    struct    struct
38      open Array      open Array
39      type array = tyconOpt array      type array = tyconOpt array
# Line 67  Line 67 
67            end            end
68      end      end
69    
70  val numericLabels = LabelArray.array(NOlabel)  val numericLabels = LabelArray.array(0,NOlabel)
71  val tupleTycons = TyconArray.array(NOtycon)  val tupleTycons = TyconArray.array(0,NOtycon)
72    
73  fun numlabel i =  fun numlabel i =
74      case LabelArray.sub(numericLabels,i)      case LabelArray.sub(numericLabels,i)
# Line 105  Line 105 
105  end (* structure Tuples *)  end (* structure Tuples *)
106    
107  (*  (*
108   * $Log$   * $Log: tuples.sml,v $
109     * Revision 1.1.1.1  1998/04/08 18:39:36  george
110     * Version 110.5
111     *
112   *)   *)

Legend:
Removed from v.249  
changed lines
  Added in v.411

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