SCM Repository
Annotation of /trunk/src/compiler/IL/gen/mid-il.in
Parent Directory
|
Revision Log
Revision 391 - (view) (download)
1 : | jhr | 266 | (* mid-il.sml |
2 : | * | ||
3 : | * COPYRIGHT (c) 2010 The Diderot Project (http://diderot.cs.uchicago.edu) | ||
4 : | * All rights reserved. | ||
5 : | * | ||
6 : | * Middle-level version of the Diderot IL. | ||
7 : | * | ||
8 : | * Note: this file is generated from gen/mid-il.spec and gen/mid-il.in. | ||
9 : | *) | ||
10 : | |||
11 : | structure MidOps = | ||
12 : | struct | ||
13 : | |||
14 : | jhr | 391 | type ty = MidILTypes.ty |
15 : | jhr | 266 | |
16 : | jhr | 391 | val samety = MidILTypes.same |
17 : | val hashty = MidILTypes.hash | ||
18 : | val tyToString = MidILTypes.toString | ||
19 : | jhr | 328 | |
20 : | jhr | 332 | fun sameint (i1 : int, i2) = (i1 = i2) |
21 : | fun hashint i = Word.fromInt i | ||
22 : | fun intToString i = Int.toString i | ||
23 : | |||
24 : | jhr | 266 | fun samestring (s1 : string, s2) = (s1 = s2) |
25 : | val hashstring = HashString.hashString | ||
26 : | fun stringToString s = String.concat["\"", s, "\""] | ||
27 : | |||
28 : | @BODY@ | ||
29 : | |||
30 : | end | ||
31 : | |||
32 : | structure MidIL = SSAFn(MidOps) |
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |