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 3439, Mon Nov 16 17:57:25 2015 UTC revision 3440, Mon Nov 16 19:16:54 2015 UTC
# Line 279  Line 279 
279              of false => [(y,mkEinApp(ein0,[PArg,FArg]))]              of false => [(y,mkEinApp(ein0,[PArg,FArg]))]
280              | _      => let              | _      => let
281                   val bind3 = (y,DstIL.EINAPP(SummationEin.main ein0,[PArg,FArg]))                   val bind3 = (y,DstIL.EINAPP(SummationEin.main ein0,[PArg,FArg]))
282                   in Split.splitEinApp(bind3,0)                   in Split.splitEinApp bind3
283                   end                   end
284              (*end case*))              (*end case*))
285    
# Line 489  Line 489 
489              | _ => print""              | _ => print""
490              (*end case*))              (*end case*))
491              val b=Ein.body ein              val b=Ein.body ein
492          (*  
493          val _=  toStrField b*)          val _=  toStrField b
494    
495          in  (case var          in  (case var
496          of NONE=> ((rewriteBody(Ein.body ein),fieldset,matchField(Ein.body ein),0))          of NONE=> ((rewriteBody(Ein.body ein),fieldset,matchField(Ein.body ein),0))

Legend:
Removed from v.3439  
changed lines
  Added in v.3440

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