SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/opt/recover.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 202, Sun Dec 13 02:29:45 1998 UTC | revision 203, Sat Dec 19 20:51:39 1998 UTC | |
|---|---|---|
| # | Line 143 | Line 143 |
| 143 | in {getLty=getlty, cleanUp=fn () => Intmap.clear zz} | in {getLty=getlty, cleanUp=fn () => Intmap.clear zz} |
| 144 | end (* function recover *) | end (* function recover *) |
| 145 | ||
| 146 | val recover = Stats.doPhase (Stats.makePhase "Compiler 050 recover") recover | |
| 147 | ||
| 148 | end (* local *) | end (* local *) |
| 149 | end (* structure Recover *) | end (* structure Recover *) |
| (* | ||
| * $Log$ | ||
| *) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
