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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/mid-to-low/mid-to-low.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/mid-to-low/mid-to-low.sml

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

revision 3831, Thu May 5 22:17:06 2016 UTC revision 3832, Fri May 6 15:08:12 2016 UTC
# Line 86  Line 86 
86                | SrcOp.Abs ty => assign (DstOp.Abs(cvtTy ty))                | SrcOp.Abs ty => assign (DstOp.Abs(cvtTy ty))
87                | SrcOp.Max ty => assign (DstOp.Max(cvtTy ty))                | SrcOp.Max ty => assign (DstOp.Max(cvtTy ty))
88                | SrcOp.Min ty => assign (DstOp.Min(cvtTy ty))                | SrcOp.Min ty => assign (DstOp.Min(cvtTy ty))
89  (* FIXME                | SrcOp.Clamp ty => (case ty
90                | SrcOp.Clamp ty => assign (DstOp.Clamp(cvtTy ty))                     of SrcTy.TensorTy[] => assign DstOp.RClamp
91                | SrcOp.MapClamp ty => assign (DstOp.Clamp(cvtTy ty))                      | SrcTy.TensorTy[d] => assign (DstOp.VClamp d)
92                | SrcOp.Lerp ty => assign (DstOp.Lerp(cvtTy ty))                      | SrcTy.TensorTy dd => raise Fail "FIXME: higher-order clamp not yet supported"
93  *)                      | _ => raise Fail("bogus " ^ SrcOp.toString rator)
94                      (* end case *))
95                  | SrcOp.MapClamp ty => (case ty
96                       of SrcTy.TensorTy[] => assign DstOp.RClamp
97                        | SrcTy.TensorTy[d] => assign (DstOp.VMapClamp d)
98                        | SrcTy.TensorTy dd => raise Fail "FIXME: higher-order clamp not yet supported"
99                        | _ => raise Fail("bogus " ^ SrcOp.toString rator)
100                      (* end case *))
101                  | SrcOp.Lerp ty => (case ty
102                       of SrcTy.TensorTy[] => assign DstOp.RLerp
103                        | SrcTy.TensorTy[d] => assign (DstOp.VLerp d)
104                        | SrcTy.TensorTy dd => raise Fail "FIXME: higher-order lerp not yet supported"
105                        | _ => raise Fail("bogus " ^ SrcOp.toString rator)
106                      (* end case *))
107                | SrcOp.EigenVecs2x2 => assign (DstOp.EigenVecs2x2)                | SrcOp.EigenVecs2x2 => assign (DstOp.EigenVecs2x2)
108                | SrcOp.EigenVecs3x3 => assign (DstOp.EigenVecs3x3)                | SrcOp.EigenVecs3x3 => assign (DstOp.EigenVecs3x3)
109                | SrcOp.EigenVals2x2 => assign (DstOp.EigenVals2x2)                | SrcOp.EigenVals2x2 => assign (DstOp.EigenVals2x2)
110                | SrcOp.EigenVals3x3 => assign (DstOp.EigenVals3x3)                | SrcOp.EigenVals3x3 => assign (DstOp.EigenVals3x3)
111                | SrcOp.Zero ty => assign (DstOp.Zero(cvtTy ty))                | SrcOp.Zero ty => assign (DstOp.Zero(cvtTy ty))
112                  | SrcOp.TensorIndex(SrcTy.TensorTy[d], [i]) => assign (DstOp.VIndex(d,i))
113                | SrcOp.TensorIndex(ty, shp) => assign (DstOp.TensorIndex(cvtTy ty, shp))                | SrcOp.TensorIndex(ty, shp) => assign (DstOp.TensorIndex(cvtTy ty, shp))
114                | SrcOp.Select(ty, i) => assign (DstOp.Select(cvtTy ty, i))                | SrcOp.Select(ty, i) => assign (DstOp.Select(cvtTy ty, i))
115                | SrcOp.Subscript ty => assign (DstOp.Subscript(cvtTy ty))                | SrcOp.Subscript ty => assign (DstOp.Subscript(cvtTy ty))

Legend:
Removed from v.3831  
changed lines
  Added in v.3832

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