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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/float-ein.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/float-ein.sml

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

revision 3597, Sun Jan 17 00:31:16 2016 UTC revision 3598, Sun Jan 17 18:05:33 2016 UTC
# Line 100  Line 100 
100                    filter (es, [], params, args)                    filter (es, [], params, args)
101                  end                  end
102            fun rewrite (sx, exp, params, args) = (case exp            fun rewrite (sx, exp, params, args) = (case exp
103                   of E.Probe(E.Conv(_, [E.C _], _, []), _) =>                   of (*E.Probe(E.Conv(_, [E.C _], _, []), _) =>
104                        cut ("cut", exp, params, index, sx, args, avail, 0)                        cut ("cut", exp, params, index, sx, args, avail, 0)
105                    | E.Probe(E.Conv(_, [E.C _ ], _, [E.V 0]), _) =>                    | E.Probe(E.Conv(_, [E.C _ ], _, [E.V 0]), _) =>
106                        cut ("cut", exp, params, index, sx, args, avail, 1)                        cut ("cut", exp, params, index, sx, args, avail, 1)
# Line 108  Line 108 
108                        cut ("cut", exp, params, index, sx, args, avail, 2)                        cut ("cut", exp, params, index, sx, args, avail, 2)
109                    | E.Probe(E.Conv(_, [E.C _ ], _, [E.V 0, E.V 1, E.V 2]), _) =>                    | E.Probe(E.Conv(_, [E.C _ ], _, [E.V 0, E.V 1, E.V 2]), _) =>
110                        cut ("cut", exp, params, index, sx, args, avail, 3)                        cut ("cut", exp, params, index, sx, args, avail, 3)
111                    | E.Probe _ => lift ("probe", exp, params, index, sx, args, avail)                    |*) E.Probe _ => lift ("probe", exp, params, index, sx, args, avail)
112                    | E.Sum(_, E.Probe _) => lift ("probe", exp, params, index, sx, args, avail)                    | E.Sum(_, E.Probe _) => lift ("probe", exp, params, index, sx, args, avail)
113                    | E.Op1(op1, e1) => let                    | E.Op1(op1, e1) => let
114                        val (e1', params', args') = rewrite (sx, e1, params, args)                        val (e1', params', args') = rewrite (sx, e1, params, args)

Legend:
Removed from v.3597  
changed lines
  Added in v.3598

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