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/FLINT/flint/flintutil.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/flint/flintutil.sml

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

revision 504, Tue Dec 7 18:31:05 1999 UTC revision 506, Fri Dec 10 00:15:35 1999 UTC
# Line 1  Line 1 
1  (* Copyright 1997 (c) by YALE FLINT PROJECT *)  (* Copyright 1997 (c) by YALE FLINT PROJECT *)
2  (* flintutil.sml *)  (* flintutil.sml *)
3    
4    structure FLINTIntMap = IntBinaryMap
5    
6  signature FLINTUTIL =  signature FLINTUTIL =
7  sig  sig
8    val rk_tuple : FLINT.rkind    val rk_tuple : FLINT.rkind
# Line 22  Line 24 
24     * free variables remain unchanged except for the renaming specified     * free variables remain unchanged except for the renaming specified
25     * in the first (types) and second (values) argument *)     * in the first (types) and second (values) argument *)
26    val copy : (FLINT.tvar * FLINT.tyc) list ->    val copy : (FLINT.tvar * FLINT.tyc) list ->
27               FLINT.lvar IntRedBlackMap.map ->               FLINT.lvar FLINTIntMap.map ->
28               FLINT.lexp -> FLINT.lexp               FLINT.lexp -> FLINT.lexp
29    val copyfdec : FLINT.fundec -> FLINT.fundec    val copyfdec : FLINT.fundec -> FLINT.fundec
30    
# Line 40  Line 42 
42        structure LT = LtyExtern        structure LT = LtyExtern
43        structure PO = PrimOp        structure PO = PrimOp
44        structure DA = Access        structure DA = Access
45        structure M  = IntRedBlackMap        structure M  = FLINTIntMap
46        structure A  = Access        structure A  = Access
47        structure O  = Option        structure O  = Option
48        structure S  = IntRedBlackSet        structure S  = IntRedBlackSet

Legend:
Removed from v.504  
changed lines
  Added in v.506

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