Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /tests/trunk/bugs/tests.obsolete/bug1354.1.sml
ViewVC logotype

Annotation of /tests/trunk/bugs/tests.obsolete/bug1354.1.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2071 - (view) (download)
Original Path: tests/trunk/bugs/tests/bug1354.1.sml

1 : dbm 548 (* bug1354.1.sml *)
2 :    
3 :     signature IR =
4 :     sig
5 :     datatype irexp = EXP of int
6 :     end;
7 :    
8 :     signature TYPE =
9 :     sig
10 :     structure Ir : IR
11 :    
12 :     datatype ty = TY of int * Ir.irexp
13 :     end;
14 :    
15 :     signature UCONSTRAINT =
16 :     sig
17 :     structure Type : TYPE
18 :     structure Ir : IR
19 :     sharing Ir = Type.Ir
20 :    
21 :     datatype uconstraint = OP of Type.ty * Ir.irexp
22 :     end;
23 :    
24 :     signature CONTEXT =
25 :     sig
26 :     structure UC : UCONSTRAINT
27 :     structure Type : TYPE = UC.Type
28 :     structure Ir : IR = UC.Ir
29 :    
30 :     datatype context = CONTEXT of (Type.ty * Ir.irexp * UC.uconstraint) list
31 :     end;
32 :    
33 :     signature RESOLVE =
34 :     sig
35 :     structure Context : CONTEXT
36 :     structure Type : TYPE = Context.Type
37 :     structure Ir : IR = Context.Ir
38 :     structure UC : UCONSTRAINT = Context.UC
39 :     end;

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