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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-to-mid/handleEin.sml

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

revision 2922, Tue Mar 3 03:55:09 2015 UTC revision 2923, Tue Mar 3 15:33:44 2015 UTC
# Line 70  Line 70 
70              z              z
71          end          end
72    
73        fun z e=String.concat["\n\n Found: ",P.printbody e,"=> 0\n"]
74      fun sweep e= (case e      fun sweep e= (case e
75          of E.Tensor _           => e          of E.Tensor _           => e
76          | E.Add es             => E.Add(List.map sweep es)          | E.Add es             => E.Add(List.map sweep es)
# Line 86  Line 86 
86          | E.Delta _               => e          | E.Delta _               => e
87          | E.Epsilon _             => e          | E.Epsilon _             => e
88          | E.Eps2 _                => e          | E.Eps2 _                => e
89          | E.Field _            => E.Const 0          | E.Field _            => (z e;E.Const 0)
90          | E.Partial _          => E.Const 0          | E.Partial _          => (z e;E.Const 0)
91          | E.Apply _            => E.Const 0          | E.Apply _            => (z e;E.Const 0)
92          | E.Lift _             => E.Const 0          | E.Lift _             => (z e;E.Const 0)
93          | E.Conv _             => E.Const 0          | E.Conv _             => (z e;E.Const 0)
94          | E.PowInt(e ,n)       => E.PowInt(sweep e ,n)          | E.PowInt(e ,n)       => E.PowInt(sweep e ,n)
95          | E.PowReal(e,n)       => E.PowReal(sweep e ,n)          | E.PowReal(e,n)       => E.PowReal(sweep e ,n)
96          | E.Probe _            =>          | E.Probe _            =>

Legend:
Removed from v.2922  
changed lines
  Added in v.2923

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