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 3534, Tue Dec 22 23:38:58 2015 UTC revision 3535, Thu Dec 24 15:45:26 2015 UTC
# Line 56  Line 56 
56     *    -> int*EIN*int*rhs list     *    -> int*EIN*int*rhs list
57     * Orders EIN, normalizes it, then cleans the summation orig-original EIN     * Orders EIN, normalizes it, then cleans the summation orig-original EIN
58     *)     *)
59      fun rewriteEin (paramCount, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (      fun rewriteEin (params, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (
60            case List.nth(paramCount, place)            case List.nth(params, place)
61             of Ein.TEN(0, _) => (changed, orig, place+1, done@[newEinApp])             of Ein.TEN(0, _) => (changed, orig, place+1, done@[newEinApp])
62              | _ => let              | _ => let
63                  val rtnArgs = done @ newArgs                  val rtnArgs = done @ newArgs
# Line 73  Line 73 
73    
74    (* doRHS: HighIR.var * rhs -> (var * rhs) list option    (* doRHS: HighIR.var * rhs -> (var * rhs) list option
75     * Looks at each argument to the original EINAPP.     * Looks at each argument to the original EINAPP.
76     * If it is another EIN APP calls foundEIN to do application     * If it is another EIN APP calls rewriteEin to do application
77     * "place"-The Param-id for the EIN operator.     * "place"-The Param-id for the EIN operator.
78     * Keeps track of the place of the argument in substitution.     * Keeps track of the place of the argument in substitution.
79     *)     *)

Legend:
Removed from v.3534  
changed lines
  Added in v.3535

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