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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/basis/basis-vars.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/basis/basis-vars.sml

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

revision 1116, Thu May 5 04:49:02 2011 UTC revision 1295, Thu Jun 9 06:42:54 2011 UTC
# Line 186  Line 186 
186                  [field(k, d, dd)] --> field(k, d, dd)                  [field(k, d, dd)] --> field(k, d, dd)
187                end))                end))
188    
189      (* clamp is overloaded at scalars and vectors *)
190        val clamp_rrr = monoVar(N.fn_clamp, [Ty.realTy, Ty.realTy, Ty.realTy] --> Ty.realTy)
191        val clamp_vvv = polyVar (N.fn_clamp, allNK(fn tv => let
192              val t = tensor[Ty.DimVar tv]
193              in
194                [t, t, t] --> t
195              end))
196    
197      val lerp3 = polyVar(N.fn_lerp, all([SK],      val lerp3 = polyVar(N.fn_lerp, all([SK],
198            fn [Ty.SHAPE dd] => let            fn [Ty.SHAPE dd] => let
199                val t = Ty.T_Tensor(Ty.ShapeVar dd)                val t = Ty.T_Tensor(Ty.ShapeVar dd)

Legend:
Removed from v.1116  
changed lines
  Added in v.1295

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