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-il/normalize-ein.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-il/normalize-ein.sml

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

revision 2414, Mon Aug 19 05:02:14 2013 UTC revision 2426, Mon Sep 16 20:16:19 2013 UTC
# Line 245  Line 245 
245                | E.Partial _=>body                | E.Partial _=>body
246                            | E.Add es => let val (b,a)= mkAdd(List.map rewriteBody es)                            | E.Add es => let val (b,a)= mkAdd(List.map rewriteBody es)
247                      in if (b=1) then ( changed:=true;a) else a end                      in if (b=1) then ( changed:=true;a) else a end
248                  | E.Pair es=>  E.Pair(List.map rewriteBody es)
249                  | E.Value _ => body
250                | E.Sub (a,b)=>  E.Sub(rewriteBody a, rewriteBody b)                | E.Sub (a,b)=>  E.Sub(rewriteBody a, rewriteBody b)
251                | E.Div (a, b) => E.Div(rewriteBody a, rewriteBody b)                | E.Div (a, b) => E.Div(rewriteBody a, rewriteBody b)
252                | E.Probe(u,v)=> (  E.Probe(rewriteBody u, v))                | E.Probe(u,v)=> (  E.Probe(rewriteBody u, v))

Legend:
Removed from v.2414  
changed lines
  Added in v.2426

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