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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 717, Thu Mar 31 22:12:58 2011 UTC revision 718, Thu Mar 31 22:18:06 2011 UTC
# Line 55  Line 55 
55                    | (Op.Mul ty, [a, b])         => T.Expr.mul(a, b)                    | (Op.Mul ty, [a, b])         => T.Expr.mul(a, b)
56                    | (Op.Div ty, [a, b])         => T.Expr.divide(a, b)                    | (Op.Div ty, [a, b])         => T.Expr.divide(a, b)
57                    | (Op.Neg ty, [a])            => T.Expr.neg a                    | (Op.Neg ty, [a])            => T.Expr.neg a
58                      | (Op.Abs ty, [a])            => T.Expr.abs a
59                    | (Op.LT ty, [a, b])          => T.Expr.lt(a, b)                    | (Op.LT ty, [a, b])          => T.Expr.lt(a, b)
60                    | (Op.LTE ty, [a, b])         => T.Expr.lte(a, b)                    | (Op.LTE ty, [a, b])         => T.Expr.lte(a, b)
61                    | (Op.EQ ty, [a, b])          => T.Expr.equ(a, b)                    | (Op.EQ ty, [a, b])          => T.Expr.equ(a, b)
# Line 68  Line 69 
69                    | (Op.Cross, [a, b])          => T.Expr.cross(a, b)                    | (Op.Cross, [a, b])          => T.Expr.cross(a, b)
70                    | (Op.Select(ty, i), [a])     => T.Expr.select(i, a)                    | (Op.Select(ty, i), [a])     => T.Expr.select(i, a)
71                    | (Op.Norm d, [a])            => T.Expr.length a                    | (Op.Norm d, [a])            => T.Expr.length a
72                      | (Op.Normalize d, [a])       => T.Expr.normalize a
73                    | (Op.Scale d, [a, b])        => T.Expr.mul(a, b)                    | (Op.Scale d, [a, b])        => T.Expr.mul(a, b)
74                    | (Op.InvScale d, [a, b])     => T.Expr.divide(a, b)                    | (Op.InvScale d, [a, b])     => T.Expr.divide(a, b)
75                    | (Op.CL, _)                  => raise Fail "CL unimplemented"                    | (Op.CL, _)                  => raise Fail "CL unimplemented"

Legend:
Removed from v.717  
changed lines
  Added in v.718

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