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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/high-il/high-opt.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/high-il/high-opt.sml

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

revision 715, Thu Mar 31 14:58:53 2011 UTC revision 716, Thu Mar 31 16:39:25 2011 UTC
# Line 93  Line 93 
93                              ])                              ])
94                        (* end case *))                        (* end case *))
95                    | SOME(Op.AddField, [f, g]) => raise Fail "Diff(f+g)"                    | SOME(Op.AddField, [f, g]) => raise Fail "Diff(f+g)"
96                    | SOME(Op.ScaleField, [s, f]) => let                    | SOME(Op.ScaleField, [s, f']) => let
97                      (* rewrite to s*(D f) *)                      (* rewrite to s*(D f) *)
98                        val lhs' = IL.Var.copy lhs                        val lhs' = IL.Var.copy lhs
99                        in                        in

Legend:
Removed from v.715  
changed lines
  Added in v.716

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