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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4310, Sat Jul 30 02:16:22 2016 UTC revision 4312, Sat Jul 30 02:51:47 2016 UTC
# Line 614  Line 614 
614                  in                  in
615                    case eqClassRepOf(env, lhs)                    case eqClassRepOf(env, lhs)
616                     of NOEQ => if (V.useCount lhs > 1)                     of NOEQ => if (V.useCount lhs > 1)
617                          then (Env.bindVar(env, lhs, Env.VEC(layout, es)); stms)                          then let
                         else let  
618                            val vs = U.newVectorVars layout                            val vs = U.newVectorVars layout
619                            in                            in
620                              Env.bindVar (env, lhs, Env.VEC(layout, List.map T.E_Var vs));                              Env.bindVar (env, lhs, Env.VEC(layout, List.map T.E_Var vs));
621                              ListPair.foldl (fn (v, e, stms) => mkDefn(v, e)::stms) stms (vs, es)                              ListPair.foldl (fn (v, e, stms) => mkDefn(v, e)::stms) stms (vs, es)
622                            end                            end
623                            else (Env.bindVar(env, lhs, Env.VEC(layout, es)); stms)
624                      | VEC xs =>                      | VEC xs =>
625                          ListPair.foldl (fn (x, e, stms) => mkAssign(x, e)::stms) stms (xs, es)                          ListPair.foldl (fn (x, e, stms) => mkAssign(x, e)::stms) stms (xs, es)
626                      | _ => raise Fail "inconsistent"                      | _ => raise Fail "inconsistent"

Legend:
Removed from v.4310  
changed lines
  Added in v.4312

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