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

SCM Repository

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

Diff of /branches/charisee/src/compiler/mid-to-low/sca-to-low.sml

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

revision 2866, Thu Feb 5 22:39:59 2015 UTC revision 2867, Tue Feb 10 06:52:58 2015 UTC
# Line 26  Line 26 
26      fun evalDelta e=H.evalDelta e      fun evalDelta e=H.evalDelta e
27      fun evalEps2 e=H.evalEps2 e      fun evalEps2 e=H.evalEps2 e
28      fun evalEps3 e=H.evalEps3 e      fun evalEps3 e=H.evalEps3 e
29        fun mkSqrt e =H.mkSqrt e
30    
31    
32      fun errField ()=raise Fail("Invalid Field Here")      fun errField ()=raise Fail("Invalid Field Here")
# Line 155  Line 156 
156                  | E.Krn _               => errField()                  | E.Krn _               => errField()
157                  | E.Img _               => errField()                  | E.Img _               => errField()
158                  | E.Lift _              => errField()                  | E.Lift _              => errField()
159                    | E.Sqrt e1             => mkSqrt(gen e1)
160                  | E.Value v             => mkReal(mapIndex(E.V v,!mapp))                  | E.Value v             => mkReal(mapIndex(E.V v,!mapp))
161                  | E.Const c             => mkReal c                  | E.Const c             => mkReal c
162                  | E.Epsilon(i,j,k)      => evalEps3(!mapp,i,j,k)                  | E.Epsilon(i,j,k)      => evalEps3(!mapp,i,j,k)

Legend:
Removed from v.2866  
changed lines
  Added in v.2867

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