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

Diff of /sml/branches/arith64/compiler/FLINT/cps/cpstrans.sml

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

revision 773, Mon Jan 8 16:18:37 2001 UTC revision 1174, Sat Mar 23 21:14:40 2002 UTC
# Line 220  Line 220 
220            SETTER(p, map vtrans vl, cexptrans ce)            SETTER(p, map vtrans vl, cexptrans ce)
221      | ARITH(p,vl,w,t,ce) =>      | ARITH(p,vl,w,t,ce) =>
222            (addty(w,t); ARITH(p, map vtrans vl, w, t, cexptrans ce))            (addty(w,t); ARITH(p, map vtrans vl, w, t, cexptrans ce))
223      | RCC(p,vl,w,t,ce) =>      | RCC(k,l,p,vl,w,t,ce) =>
224            (addty(w,t); RCC(p, map vtrans vl, w, t, cexptrans ce))            (addty(w,t); RCC(k, l, p, map vtrans vl, w, t, cexptrans ce))
225    
226    
227    (*** this special case is a temporary hack; ask ZHONG for details *)    (*** this special case is a temporary hack; ask ZHONG for details *)

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

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