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

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/cpsopt/contract.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/contract.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 122, Sat Jun 6 15:05:38 1998 UTC revision 149, Sun Oct 11 17:44:55 1998 UTC
# Line 1032  Line 1032 
1032      cpssize := Intmap.elems m;      cpssize := Intmap.elems m;
1033      let val cexp' = reduce cexp      let val cexp' = reduce cexp
1034      in  debugprint "\n";      in  debugprint "\n";
1035          if debug andalso !CG.misc4=16          if debug
1036              then (debugprint "After contract: \n";              then (debugprint "After contract: \n";
1037                    PPCps.prcps cexp')                    PPCps.prcps cexp')
1038          else ();          else ();

Legend:
Removed from v.122  
changed lines
  Added in v.149

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