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 4045, Sun Jun 26 14:54:01 2016 UTC revision 4056, Mon Jun 27 15:26:20 2016 UTC
# Line 323  Line 323 
323                    in                    in
324                      (Env.TREE(List.foldr (fn (e, es) => T.E_Op(TOp.RAdd, [e, es])) e es), stms)                      (Env.TREE(List.foldr (fn (e, es) => T.E_Op(TOp.RAdd, [e, es])) e es), stms)
325                    end                    end
326                  | Op.VDot _ => let
327                      val (layout, argss, stms) = vectorArgs (env, args)
328                      fun mkArgs (_, [], []) = []
329                        | mkArgs (w, p::ps, args::argss) =
330                            T.E_Op(TOp.VDot(w, p), args) :: mkArgs (w-p, ps, argss)
331                      val e::es = mkArgs (#wid layout, #pieces layout, argss)
332                      in
333                        (Env.TREE(List.foldr (fn (e, es) => T.E_Op(TOp.RAdd, [e, es])) e es), stms)
334                      end
335                | Op.VIndex(_, i) => let                | Op.VIndex(_, i) => let
336                    val [v] = args                    val [v] = args
337                    val ({wid, pieces, ...}, es, stms) = vectorArg (env, v)                    val ({wid, pieces, ...}, es, stms) = vectorArg (env, v)

Legend:
Removed from v.4045  
changed lines
  Added in v.4056

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