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/branches/arith64/compiler/FLINT/cpsopt/etasplit.sml
ViewVC logotype

Diff of /sml/branches/arith64/compiler/FLINT/cpsopt/etasplit.sml

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

revision 733, Fri Nov 17 05:13:45 2000 UTC revision 773, Mon Jan 8 16:18:37 2001 UTC
# Line 100  Line 100 
100    | LOOKER(_,vl,_,_,e) => (app use vl; pass1 e)    | LOOKER(_,vl,_,_,e) => (app use vl; pass1 e)
101    | ARITH(_,vl,_,_,e) => (app use vl; pass1 e)    | ARITH(_,vl,_,_,e) => (app use vl; pass1 e)
102    | PURE(_,vl,_,_,e) => (app use vl; pass1 e)    | PURE(_,vl,_,_,e) => (app use vl; pass1 e)
103      | RCC(_,vl,_,_,e) => (app use vl; pass1 e)
104    | APP(f, vl) => (call f; app use vl)    | APP(f, vl) => (call f; app use vl)
105    | FIX(l, e) =>    | FIX(l, e) =>
106        let (* Any changes to dosplit had better be reflected here. *)        let (* Any changes to dosplit had better be reflected here. *)
# Line 128  Line 129 
129      | 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)
130      | 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)
131      | SETTER(i,vl,e) => SETTER(i, vl, reduce e)      | SETTER(i,vl,e) => SETTER(i, vl, reduce e)
132        | RCC(p,vl,w,t,e) => RCC(p, vl, w, t, reduce e)
133      | (e as APP(f,vl)) =>      | (e as APP(f,vl)) =>
134         (case alias f         (case alias f
135            of NONE => e            of NONE => e

Legend:
Removed from v.733  
changed lines
  Added in v.773

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