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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-opt/low-contract.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-opt/low-contract.sml

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

revision 3714, Sat Apr 2 16:14:41 2016 UTC revision 3747, Tue Apr 12 12:03:49 2016 UTC
# Line 25  Line 25 
25      val cntSubNeg               = ST.newCounter "low-opt:sub-neg"      val cntSubNeg               = ST.newCounter "low-opt:sub-neg"
26      val cntSubSame              = ST.newCounter "low-opt:sub-same"      val cntSubSame              = ST.newCounter "low-opt:sub-same"
27      val cntNegNeg               = ST.newCounter "low-opt:neg-neg"      val cntNegNeg               = ST.newCounter "low-opt:neg-neg"
     val cntEigenVals            = ST.newCounter "low-opt:eigen-vals"  
28      val cntIntToReal            = ST.newCounter "low-opt:int-to-real"      val cntIntToReal            = ST.newCounter "low-opt:int-to-real"
29      val cntUnused               = ST.newCounter "low-opt:unused"      val cntUnused               = ST.newCounter "low-opt:unused"
30      val firstCounter            = cntAddNeg      val firstCounter            = cntAddNeg
# Line 90  Line 89 
89            (* end case *))            (* end case *))
90        | doAssign _ = NONE        | doAssign _ = NONE
91    
92      fun doMAssign (ys, rator, xs) = (case (ys, rator)      fun doMAssign _ = NONE
            of ([vals, vecs], Op.EigenVecs2x2) =>  
                 if (useCount vecs = 0)  
                   then (  
                     ST.tick cntEigenVals;  
                     SOME[(vals, IR.OP(Op.EigenVals2x2, xs))])  
                   else NONE  
             | ([vals, vecs], Op.EigenVecs3x3) =>  
                 if (useCount vecs = 0)  
                   then (  
                     ST.tick cntEigenVals;  
                     SOME[(vals, IR.OP(Op.EigenVals3x3, xs))])  
                   else NONE  
             | _ => NONE  
           (* end case *))  
93    
94      structure Rewrite = RewriteFn (      structure Rewrite = RewriteFn (
95        struct        struct

Legend:
Removed from v.3714  
changed lines
  Added in v.3747

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