Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/step3.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/step3.sml

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

revision 2837, Wed Nov 19 23:42:17 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 117  Line 117 
117      aaV(opp,[nU],lhs^"S"^Int.toString(id),Sca)      aaV(opp,[nU],lhs^"S"^Int.toString(id),Sca)
118      end      end
119    
120  fun mkIntAsn(mapp,(id,ix,(lhs,params,args)))= let  fun mkIntAsn(_,(id, [],(_,_,args))) = (List.nth(args,id),[])
121        | mkIntAsn(mapp,(id,ix,(lhs,params,args)))= let
122      val nU=List.nth(args,id)      val nU=List.nth(args,id)
123      val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)      val ixx=(List.map (fn (e1)=> mapIndex(e1,mapp)) ix)
124      val ix'=DstTy.indexTy ixx      val ix'=DstTy.indexTy ixx

Legend:
Removed from v.2837  
changed lines
  Added in v.2838

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