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

SCM Repository

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

Diff of /branches/charisee_dev/src/compiler/high-to-mid/ProbeEin.sml

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

revision 3271, Fri Oct 9 18:12:58 2015 UTC revision 3278, Tue Oct 13 03:59:10 2015 UTC
# Line 317  Line 317 
317              end              end
318    
319          fun rewriteBody b=(case b          fun rewriteBody b=(case b
320              of (*E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[]),pos)              of E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[]),pos)
321                  => liftFieldMat (1,b)                  => liftFieldMat (1,b)
322              | E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[E.V 1]),pos)              | E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[E.V 1]),pos)
323                  => liftFieldMat (2,b)                  => liftFieldMat (2,b)
324              | E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[E.V 1,E.V 2] ),pos)              | E.Probe(E.Conv(_,[E.C _ ,E.V 0],_,[E.V 1,E.V 2] ),pos)
325                  => liftFieldMat (3,b)                  => liftFieldMat (3,b)
326              |*) E.Probe(E.Conv(_,_,_,[]),_)              | E.Probe(E.Conv(_,_,_,[]),_)
327                  => replaceProbe(0,e,b,[])                  => replaceProbe(0,e,b,[])
328              | E.Probe(E.Conv (_,alpha,_,dx),_)              | E.Probe(E.Conv (_,alpha,_,dx),_)
329                  => checkConst(dx,(0,e,b,[])) (*scans dx for contant*)                  => checkConst(dx,(0,e,b,[])) (*scans dx for contant*)

Legend:
Removed from v.3271  
changed lines
  Added in v.3278

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