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 4092, Wed Jun 29 13:58:36 2016 UTC revision 4128, Thu Jun 30 23:19:13 2016 UTC
# Line 368  Line 368 
368                      (select (i, wid, pieces, es), stms)                      (select (i, wid, pieces, es), stms)
369                    end                    end
370                | Op.VClamp n => let                | Op.VClamp n => let
371                    val [v, lo, hi] = args                    val [lo, hi, v] = args
372                    val (layout, vs, stms) = vectorArg (env, v)                    val (lo, stms) = simpleArg env (lo, [])
                   val (lo, stms) = simpleArg env (lo, stms)  
373                    val (hi, stms) = simpleArg env (hi, stms)                    val (hi, stms) = simpleArg env (hi, stms)
374                      val (layout, vs, stms') = vectorArg (env, v)
375                    val exps = mkArgs                    val exps = mkArgs
376                          (fn (w, p, x) => (TOp.VClamp(w, p), [x, lo, hi]))                          (fn (w, p, x) => (TOp.VClamp(w, p), [lo, hi, x]))
377                            (layout, vs)                            (layout, vs)
378                    in                    in
379                      (Env.VEC(layout, exps), List.rev stms)                      (Env.VEC(layout, exps), List.revAppend(stms, List.rev stms))
380                    end                    end
381                | Op.VMapClamp n => bindVOp TOp.VMapClamp                | Op.VMapClamp n => bindVOp TOp.VMapClamp
382                | Op.VLerp n => let                | Op.VLerp n => let

Legend:
Removed from v.4092  
changed lines
  Added in v.4128

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