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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/translate/translate-basis.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/translate/translate-basis.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 421  Line 421 
421                  (BV.dist2_t,           fn (y, _, xs) => dist(y, 2, xs)),                  (BV.dist2_t,           fn (y, _, xs) => dist(y, 2, xs)),
422                  (BV.dist3_t,           fn (y, _, xs) => dist(y, 3, xs)),                  (BV.dist3_t,           fn (y, _, xs) => dist(y, 3, xs)),
423                (* spatial queries *)                (* spatial queries *)
                 (BV.fn_sphere_im,       fn (y, [tv], args as [p, s]) =>  
                                           assign(y, Op.SphereQuery(IR.Var.ty p, trType tv), args)),  
424                  (BV.fn_sphere1_r,       fn (y, [tv], args as [p, s]) =>                  (BV.fn_sphere1_r,       fn (y, [tv], args as [p, s]) =>
425                                            assign(y, Op.SphereQuery(IR.Var.ty p, trType tv), args)),                                            assign(y, Op.SphereQuery(1, trType tv), args)),
426                  (BV.fn_sphere2_t,       fn (y, [tv], args as [p, s]) =>                  (BV.fn_sphere2_t,       fn (y, [tv], args as [p, s]) =>
427                                            assign(y, Op.SphereQuery(IR.Var.ty p, trType tv), args)),                                            assign(y, Op.SphereQuery(2, trType tv), args)),
428                  (BV.fn_sphere3_t,       fn (y, [tv], args as [p, s]) =>                  (BV.fn_sphere3_t,       fn (y, [tv], args as [p, s]) =>
429                                            assign(y, Op.SphereQuery(IR.Var.ty p, trType tv), args)),                                            assign(y, Op.SphereQuery(3, trType tv), args)),
430                (* math functions that have not been lifted *)                (* math functions that have not been lifted *)
431                  (BV.fn_atan2_rr,        fn (y, _, args) =>                  (BV.fn_atan2_rr,        fn (y, _, args) =>
432                                            assign(y, Op.MathFn MathFns.ATAN2, args)),                                            assign(y, Op.MathFn MathFns.ATAN2, args)),

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