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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/gen-tys-and-ops.sml

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

revision 4055, Mon Jun 27 14:31:45 2016 UTC revision 4056, Mon Jun 27 15:26:20 2016 UTC
# Line 391  Line 391 
391                        in                        in
392                          mkFunc(realTy, name, params, mkReturn(mkSum(w-1)))                          mkFunc(realTy, name, params, mkReturn(mkSum(w-1)))
393                        end                        end
394                      | VDot(w, pw) => let
395                          val name = RN.vdot w
396                          val vTy = RN.vecTy w
397                          val params = [CL.PARAM([], vTy, "u"), CL.PARAM([], vTy, "v")]
398                          fun mkSum 0 = CL.mkSubscript(CL.mkVar "w", mkInt 0)
399                            | mkSum i = CL.mkBinOp(mkSum(i-1), CL.#+, CL.mkSubscript(CL.mkVar "w", mkInt i))
400                          in
401                            mkFunc(realTy, name, params,
402                              CL.mkBlock[
403                                  CL.mkDeclInit(vTy, "w", CL.mkBinOp(CL.mkVar "u", CL.#*, CL.mkVar "v")),
404                                  mkReturn(mkSum(w-1))
405                                ])
406                          end
407                    | VClamp(w, pw) => let                    | VClamp(w, pw) => let
408                        val cTy = RN.vecTy w                        val cTy = RN.vecTy w
409                        val name = "vclamp"                        val name = "vclamp"

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

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