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

SCM Repository

[diderot] Diff of /branches/chiw17/src/compiler/high-to-mid/poly-ein.sml
ViewVC logotype

Diff of /branches/chiw17/src/compiler/high-to-mid/poly-ein.sml

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

revision 5029, Tue Jul 11 22:38:23 2017 UTC revision 5030, Tue Jul 11 22:53:10 2017 UTC
# Line 156  Line 156 
156          | _    => raise Fail(EinPP.expToString(body))          | _    => raise Fail(EinPP.expToString(body))
157          (* end case*))          (* end case*))
158    
159      fun transform (y, ein as Ein.EIN{body = E.Probe(E.PolyWrap(E.Tensor(pid,alpha), e, dx), pos),index, params}, args) =      fun transform (y, ein as Ein.EIN{body = E.Probe(E.OField(E.PolyWrap, E.Tensor(pid,alpha), e, dx), pos),index, params}, args) =
160              let              let
161    
162  val _ = print(String.concat ["\n poly ttansform:", EinPP.toString(ein)])  val _ = print(String.concat ["\n poly ttansform:", EinPP.toString(ein)])

Legend:
Removed from v.5029  
changed lines
  Added in v.5030

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