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/eta.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/eta.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 144  Line 144 
144      | ARITH(i,vl,w,t,e) => ARITH(i,map rename vl, w, t, pass2 e)      | ARITH(i,vl,w,t,e) => ARITH(i,map rename vl, w, t, pass2 e)
145      | PURE(i,vl,w,t,e) => PURE(i,map rename vl, w, t, pass2 e)      | PURE(i,vl,w,t,e) => PURE(i,map rename vl, w, t, pass2 e)
146      | SETTER(i,vl,e) => SETTER(i,map rename vl, pass2 e)      | SETTER(i,vl,e) => SETTER(i,map rename vl, pass2 e)
147      | RCC(p,vl,w,t,e) => RCC (p, map rename vl, w, t, pass2 e)      | RCC(k,l,p,vl,w,t,e) => RCC (k, l, p, map rename vl, w, t, pass2 e)
148      | FIX(l,e) =>      | FIX(l,e) =>
149          FIX(map (fn (fk,f,vl,cl,body) => (fk,f,vl,cl,pass2 body)) l,          FIX(map (fn (fk,f,vl,cl,body) => (fk,f,vl,cl,pass2 body)) l,
150              pass2 e)              pass2 e)
# Line 164  Line 164 
164      | PURE(i,vl,w,t,e) =>      | PURE(i,vl,w,t,e) =>
165            (addvt(w, t); PURE(i,map rename vl, w, t, reduce e))            (addvt(w, t); PURE(i,map rename vl, w, t, reduce e))
166      | SETTER(i,vl,e) => SETTER(i,map rename vl, reduce e)      | SETTER(i,vl,e) => SETTER(i,map rename vl, reduce e)
167      | RCC (p,vl,w,t,e) => (addvt(w,t); RCC (p, map rename vl, w, t, reduce e))      | RCC (k,l,p,vl,w,t,e) =>
168              (addvt(w,t); RCC (k, l, p, map rename vl, w, t, reduce e))
169      | FIX(l,e) =>      | FIX(l,e) =>
170         let val _ = app addft l         let val _ = app addft l
171             fun eta_elim nil = (nil,id,false)             fun eta_elim nil = (nil,id,false)

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