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

Parent Directory | Revision Log | 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"

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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