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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/high-il/normalize.sml
ViewVC logotype

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

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

revision 2181, Sat Feb 23 19:07:06 2013 UTC revision 2182, Sun Feb 24 01:39:57 2013 UTC
# Line 125  Line 125 
125                    | SOME(Op.ScaleField, [s, f']) => let                    | SOME(Op.ScaleField, [s, f']) => let
126                      (* rewrite to s*(f'@pos) *)                      (* rewrite to s*(f'@pos) *)
127                        val lhs' = IL.Var.copy lhs                        val lhs' = IL.Var.copy lhs
128                          val scaleOp = (case rngTy
129                                 of Ty.TensorTy[] => Op.Mul rngTy
130                                  | _ => Op.Scale rngTy
131                                (* end case *))
132                        in                        in
133                          ST.tick cntProbeScale;                          ST.tick cntProbeScale;
134                          decUse f;                          decUse f;
135                          SOME[                          SOME[
136                              (lhs', IL.OP(Op.Probe(domTy, rngTy), [use f', pos])),                              (lhs', IL.OP(Op.Probe(domTy, rngTy), [use f', pos])),
137                              (lhs, IL.OP(Op.Scale rngTy, [use s, use lhs']))                              (lhs, IL.OP(scaleOp, [use s, use lhs']))
138                            ]                            ]
139                        end                        end
140                    | SOME(Op.OffsetField, [f', s]) => let                    | SOME(Op.OffsetField, [f', s]) => let

Legend:
Removed from v.2181  
changed lines
  Added in v.2182

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