Diff of /trunk/src/compiler/IL/field-def.sml

Parent Directory | Revision Log | Patch

	revision 191, Mon Aug 2 14:05:11 2010 UTC	revision 192, Mon Aug 2 16:23:42 2010 UTC
#	Line 50	Line 50
50	| hash (NEG fld) = 0w3 * hash fld + 0w11	| hash (NEG fld) = 0w3 * hash fld + 0w11
51	| hash (SUM(fld1, fld2)) = 0w7 * hash fld1 + hash fld2	| hash (SUM(fld1, fld2)) = 0w7 * hash fld1 + hash fld2
52
53		fun toString (CONV(img, kern)) =
54		concat["<", ImageInfo.toString img, "*", Kernel.name kern, ">"]
55		| toString (DIFF(k, fld)) =
56		concat["(D", Int.toString k, " ", toString fld, ")"]
57		| toString (NEG fld) = "-" ^ toString fld
58		| toString (SUM(fld1, NEG fld2)) =
59		concat["(", toString fld1, "-", toString fld2, ")"]
60		| toString (SUM(fld1, fld2)) =
61		concat["(", toString fld1, "+", toString fld2, ")"]
62
63	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.191   changed lines   Added in v.192

---

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