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/tree-to-cxx.sml
ViewVC logotype

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

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

revision 4348, Tue Aug 2 15:48:33 2016 UTC revision 4349, Tue Aug 2 18:14:48 2016 UTC
# Line 175  Line 175 
175              | (Op.Concat ty, [a, b]) => mkDynseqApply (env, ty, "concat", [a, b])              | (Op.Concat ty, [a, b]) => mkDynseqApply (env, ty, "concat", [a, b])
176              | (Op.Range, [a, b]) => CL.mkCons(dynseqTy(env, Ty.IntTy), [a, b])              | (Op.Range, [a, b]) => CL.mkCons(dynseqTy(env, Ty.IntTy), [a, b])
177              | (Op.Length ty, [a]) => CL.mkDispatch(a, "length", [])              | (Op.Length ty, [a]) => CL.mkDispatch(a, "length", [])
178              | (Op.SphereQuery(ty1, ty2), []) => raise Fail "FIXME: SphereQuery"              | (Op.SphereQuery(dim, strandTy), args) =>
179                    CL.mkIndirectDispatch(CL.mkVar(Env.world env), "sphere_query", args)
180              | (Op.Sqrt, [a]) => mkStdApply("sqrt", [a])              | (Op.Sqrt, [a]) => mkStdApply("sqrt", [a])
181              | (Op.Cos, [a]) => mkStdApply("cos", [a])              | (Op.Cos, [a]) => mkStdApply("cos", [a])
182              | (Op.ArcCos, [a]) => mkStdApply("acos", [a])              | (Op.ArcCos, [a]) => mkStdApply("acos", [a])

Legend:
Removed from v.4348  
changed lines
  Added in v.4349

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