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 4190, Tue Jul 12 21:40:37 2016 UTC revision 4204, Thu Jul 14 00:53:31 2016 UTC
# Line 624  Line 624 
624                    in                    in
625                      stms' @ stms                      stms' @ stms
626                    end                    end
627                | IR.VAR x => raise Fail "FIXME: VAR"                | IR.VAR x => (case eqClassRepOf(env, lhs)
628                       of NOEQ => (Env.bindVar(env, lhs, useVar env x); [])
629                        | VAR x' => (case useVar env x
630                             of Env.RHS(_, e) => [mkAssign' (x', e)]
631                              | Env.TREE e => [mkAssign' (x', e)]
632                            (* end case *))
633                        | VEC xs => let
634                            val (_, es, stms) = vectorArg (env, x)
635                            in
636                              ListPair.map (fn (x, e) => mkAssign' (x, e)) (xs, es)
637                            end
638                      (* end case *))
639                | IR.LIT lit => bindSimple (T.E_Lit lit)                | IR.LIT lit => bindSimple (T.E_Lit lit)
640  (* FIXME: use the general IR.OP case for eigen-things, since the target info says that they  (* FIXME: use the general IR.OP case for eigen-things, since the target info says that they
641   * are not inline.   * are not inline.

Legend:
Removed from v.4190  
changed lines
  Added in v.4204

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