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/compiler/CodeGen/cpscompile/limit.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/cpscompile/limit.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 69  Line 69 
69          | g(d, SETTER(_,_,e)) = g(d,e)          | g(d, SETTER(_,_,e)) = g(d,e)
70          | g(d, LOOKER(_,_,_,_,e)) = g(d,e)          | g(d, LOOKER(_,_,_,_,e)) = g(d,e)
71          | g(d, PURE(_,_,_,_,e)) = g(d,e)          | g(d, PURE(_,_,_,_,e)) = g(d,e)
72            | g(d, RCC(_,_,_,_,e)) = g(d, e)
73          | g(d, BRANCH(_,_,_,a,b)) = Int.max(g(d,a), g(d,b))          | g(d, BRANCH(_,_,_,a,b)) = Int.max(g(d,a), g(d,b))
74          | g(d, APP(LABEL w, _)) =          | g(d, APP(LABEL w, _)) =
75               (case maxpath w               (case maxpath w
# Line 92  Line 93 
93          | h(d, ARITH(_,_,_,_,e)) = h(d+1, e)          | h(d, ARITH(_,_,_,_,e)) = h(d+1, e)
94          | h(d, PURE(_,_,_,_,e)) = h(d+1, e)          | h(d, PURE(_,_,_,_,e)) = h(d+1, e)
95          | h(d, LOOKER(_,_,_,_,e)) = h(d+1, e)          | h(d, LOOKER(_,_,_,_,e)) = h(d+1, e)
96            | h(d, RCC(_,_,_,_,e)) = h(d+1, e)
97          | h(d, BRANCH(_,_,_,a,b)) = Int.max(h(d,a), h(d,b)) + 1          | h(d, BRANCH(_,_,_,a,b)) = Int.max(h(d,a), h(d,b)) + 1
98          | h(d, APP(LABEL w, _)) =          | h(d, APP(LABEL w, _)) =
99               (case maxpath w of               (case maxpath w of
# Line 140  Line 142 
142                  | edges (LOOKER(_,_,_,_,e)) = edges e                  | edges (LOOKER(_,_,_,_,e)) = edges e
143                  | edges (ARITH(_,_,_,_,e)) = edges e                  | edges (ARITH(_,_,_,_,e)) = edges e
144                  | edges (PURE(_,_,_,_,e)) = edges e                  | edges (PURE(_,_,_,_,e)) = edges e
145                    | edges (RCC(_,_,_,_,e)) = edges e
146                  | edges (BRANCH(_,_,_,a,b)) = edges a @ edges b                  | edges (BRANCH(_,_,_,a,b)) = edges a @ edges b
147                  | edges (APP(LABEL w, _)) = (case escapes w of KNOWN => [w]                  | edges (APP(LABEL w, _)) = (case escapes w of KNOWN => [w]
148                                                               | _ => nil)                                                               | _ => nil)

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