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/opt/specialize.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/opt/specialize.sml

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

revision 162, Tue Oct 27 22:16:21 1998 UTC revision 163, Thu Oct 29 21:00:27 1998 UTC
# Line 612  Line 612 
612            val ne = transform (ienv, d, ltfg, tcfg, d, false) e            val ne = transform (ienv, d, ltfg, tcfg, d, false) e
613            val hdr = chkOutEscs (ienv, map #1 vts)            val hdr = chkOutEscs (ienv, map #1 vts)
614            val nfdec = (fk, f, vts, hdr ne) before (cleanUp())            val nfdec = (fk, f, vts, hdr ne) before (cleanUp())
615         in if (num_click()) > 0 then LContract.lcontract nfdec         in if (num_click()) > 0 then (*  LContract.lcontract *) nfdec
616            (* if we did specialize, we run a round of lcontract on the result *)            (* if we did specialize, we run a round of lcontract on the result *)
617            else nfdec            else nfdec
618        end        end

Legend:
Removed from v.162  
changed lines
  Added in v.163

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