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

SCM Repository

[diderot] Diff of /branches/femprime/src/compiler/high-to-mid/translate-field.sml
ViewVC logotype

Diff of /branches/femprime/src/compiler/high-to-mid/translate-field.sml

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

revision 5047, Wed Jul 12 22:46:18 2017 UTC revision 5048, Thu Jul 13 01:09:59 2017 UTC
# Line 21  Line 21 
21    
22    
23    
24      fun transform (y, IR.EINAPP(ein as E.EIN{body,...}, args)) = (case (body)  fun transform (y, IR.EINAPP(ein as E.EIN{body,...}, args)) = (print "\n\ninside transform";case (body)
25          of E.Probe(E.OField(ofld, _,_,_),_) => (case ofld          of E.Probe(E.OField(ofld, _,_,_),_) => (case ofld
26              of E.PolyWrap   => (PolyEin.transform(y, ein, args))              of E.PolyWrap   => ( print "poly ein transform";PolyEin.transform(y, ein, args))
27              | E.Fem         => ExpandFem.transform(y, IR.EINAPP(ein, args))              | E.Fem         =>  ( print "fem ein transform";ExpandFem.transform(y, IR.EINAPP(ein, args)))
28              (* end case*))              (* end case*))
29          | _ =>  [(y, IR.EINAPP(ein, args))]          | _ =>  ( print ("\n\ntransform ein else"^EinPP.toString(ein)); [(y, IR.EINAPP(ein, args))])
30           (* end case*))           (* end case*))
31      | transform (y, e) =   [(y, e)]      | transform (y, e) =    ( print "transform non ein";[(y, e)])
32  end  end

Legend:
Removed from v.5047  
changed lines
  Added in v.5048

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