Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-opt/normalize.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-opt/normalize.sml

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

revision 4087, Tue Jun 28 22:14:21 2016 UTC revision 4088, Wed Jun 29 00:51:17 2016 UTC
# Line 57  Line 57 
57     *)     *)
58      fun rewriteEin (params, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (      fun rewriteEin (params, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (
59            case List.nth(params, place)            case List.nth(params, place)
60             of Ein.TEN(false, _) =>             of Ein.TEN(false, _) => (
61                  ( incUse lhs; incUse newEinApp;                  incUse lhs; incUse newEinApp;
62                  (changed, orig, place+1, done@[newEinApp]))                  (changed, orig, place+1, done@[newEinApp]))
63              | _ => let              | _ => let
64                  val rtnArgs = done @ newArgs                  val rtnArgs = done @ newArgs

Legend:
Removed from v.4087  
changed lines
  Added in v.4088

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