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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-opt/eps-util.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-opt/eps-util.sml

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

revision 3515, Sat Dec 19 03:01:31 2015 UTC revision 3520, Sat Dec 19 15:49:06 2015 UTC
# Line 22  Line 22 
22    end = struct    end = struct
23    
24      structure E = Ein      structure E = Ein
     structure F = Filter  
25    
26      fun err str = raise Fail (String.concat["Ill-formed EIN Operator",str])      fun err str = raise Fail (String.concat["Ill-formed EIN Operator",str])
27    
# Line 97  Line 96 
96      *return: change, e', sx      *return: change, e', sx
97      *)      *)
98      fun epsToDels exps = let      fun epsToDels exps = let
99            val (epsAll, rest, sumexp) = F.filterEps exps            val (epsAll, rest, sumexp) = EinFilter.filterEps exps
100            in            in
101              case distributeEps(epsAll, sumexp)              case distributeEps(epsAll, sumexp)
102               of NONE => (false, E.Const 0, [], epsAll, rest@sumexp)               of NONE => (false, E.Const 0, [], epsAll, rest@sumexp)

Legend:
Removed from v.3515  
changed lines
  Added in v.3520

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