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

SCM Repository

[diderot] Diff of /trunk/src/compiler/IL/field-def.sml
ViewVC logotype

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

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

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