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 /sml/trunk/src/MLRISC/cm/Peephole.cm
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/cm/Peephole.cm

Parent Directory Parent Directory | Revision Log 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