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/CPS/cps/ppcps.sml
 [smlnj] / sml / trunk / compiler / CPS / cps / ppcps.sml

Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml

revision 1094, Mon Feb 25 09:58:56 2002 UTC revision 1174, Sat Mar 23 21:14:40 2002 UTC
# Line 139  Line 139
139    | pureName P.newarray0 = "newarray0"    | pureName P.newarray0 = "newarray0"
140    | pureName (P.rawrecord rk) = "rawrecord"^    | pureName (P.rawrecord rk) = "rawrecord"^
141                      (case rk of NONE => "" | SOME rk => rkstring rk)                      (case rk of NONE => "" | SOME rk => rkstring rk)
142      | pureName (P.condmove b) = "condmove "^branchName b
143
144  and rkstring rk = (case rk  and rkstring rk = (case rk
145          of RK_VECTOR => "RK_VECTOR"          of RK_VECTOR => "RK_VECTOR"
# Line 244  Line 245
245                      indent (n+3) e1;                      indent (n+3) e1;
246                      space n; say "else\n";                      space n; say "else\n";
247                      indent (n+3) e2)                      indent (n+3) e2)
248                | RCC(p,vl,w,t,e) =>                | RCC(k,l,p,vl,w,t,e) =>
249                     (space n;                     (space n;
250                        if k = REENTRANT_RCC then say "reentrant " else ();
251                        if l = "" then () else (say l; say " ");
252                      say "rcc("; sayvlist vl; say ") -> "; sayv(VAR w);                      say "rcc("; sayvlist vl; say ") -> "; sayv(VAR w);
253                      sayt(t);nl(); f e)                      sayt(t);nl(); f e)
254           in f           in f

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