SCM Repository
Annotation of /sml/trunk/src/MLRISC/cm/Peephole.cm
Parent Directory
|
Revision Log
Revision 744 - (view) (download)
1 : | leunga | 744 | (* MLRISC-Peephole.cm |
2 : | * | ||
3 : | * COPYRIGHT (c) 1999 Bell Labs, Lucent Technologies. | ||
4 : | * | ||
5 : | * This library contains only the peephole optimization stuff. | ||
6 : | *) | ||
7 : | |||
8 : | Library | ||
9 : | signature PEEPHOLE | ||
10 : | functor ClusterPeephole | ||
11 : | is | ||
12 : | |||
13 : | #if defined(NEW_CM) | ||
14 : | #if SMLNJ_VERSION * 100 + SMLNJ_MINOR_VERSION >= 11030 | ||
15 : | $/basis.cm | ||
16 : | $/smlnj-lib.cm | ||
17 : | #else | ||
18 : | basis.cm | ||
19 : | smlnj-lib.cm | ||
20 : | #endif | ||
21 : | #else | ||
22 : | smlnj-lib.cm | ||
23 : | #endif | ||
24 : | |||
25 : | MLRISC.cm | ||
26 : | |||
27 : | (* Peephole optimizations *) | ||
28 : | ../instructions/peephole.sig | ||
29 : | ../cluster/clusterPeephole.sml |
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |