Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/cpsopt/uncurry.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/uncurry.sml

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

revision 1173, Sat Mar 23 04:18:51 2002 UTC revision 1174, Sat Mar 23 21:14:40 2002 UTC
# Line 32  Line 32 
32               LOOKER(_,vl,_,_,e) |               LOOKER(_,vl,_,_,e) |
33               ARITH(_,vl,_,_,e) |               ARITH(_,vl,_,_,e) |
34               PURE(_,vl,_,_,e) |               PURE(_,vl,_,_,e) |
35               RCC(_,vl,_,_,e)) => any vl orelse g e               RCC(_,_,_,vl,_,_,e)) => any vl orelse g e
36            | BRANCH(_,vl,c,e1,e2) => any vl orelse g e1 orelse g e2            | BRANCH(_,vl,c,e1,e2) => any vl orelse g e1 orelse g e2
37            | FIX(fl, e) => List.exists (g o #5) fl  orelse  g e            | FIX(fl, e) => List.exists (g o #5) fl  orelse  g e
38     in g     in g
# Line 103  Line 103 
103      | LOOKER(i,vl,w,t,e) => LOOKER(i, vl, w, t, reduce e)      | LOOKER(i,vl,w,t,e) => LOOKER(i, vl, w, t, reduce e)
104      | ARITH(i,vl,w,t,e) => ARITH(i, vl, w, t, reduce e)      | ARITH(i,vl,w,t,e) => ARITH(i, vl, w, t, reduce e)
105      | PURE(i,vl,w,t,e) => PURE(i, vl, w, t, reduce e)      | PURE(i,vl,w,t,e) => PURE(i, vl, w, t, reduce e)
106      | RCC(p,vl,w,t,e) => RCC(p, vl, w, t, reduce e)      | RCC(k,l,p,vl,w,t,e) => RCC(k, l, p, vl, w, t, reduce e)
107      | SETTER(i,vl,e) => SETTER(i, vl, reduce e)      | SETTER(i,vl,e) => SETTER(i, vl, reduce e)
108      | FIX(l,e) =>      | FIX(l,e) =>
109         let fun uncurry(fd as (CONT,_,_,_,_)) = [reduce_body(fd)]         let fun uncurry(fd as (CONT,_,_,_,_)) = [reduce_body(fd)]

Legend:
Removed from v.1173  
changed lines
  Added in v.1174

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