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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/tree-il/expandOp.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/expandOp.sml

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

revision 2631, Fri May 23 18:13:12 2014 UTC revision 2632, Fri May 23 18:57:58 2014 UTC
# Line 15  Line 15 
15      fun getLd(pieces, 0,rator,argsS,args,origTy)= let      fun getLd(pieces, 0,rator,argsS,args,origTy)= let
16          fun createOps([],_,code)=code          fun createOps([],_,code)=code
17           | createOps(vn::es,offset, code)=let           | createOps(vn::es,offset, code)=let
18              val args'=List.map (fn A=>T.E_LoadVec(vn,origTy,offset,A)) args                  val args' = List.map (fn a => T.E_LoadVec(vn, origTy, a, T.E_Lit(Literal.Int offset))) args
19              val exp=T.E_Op(rator vn,argsS@args')              val exp=T.E_Op(rator vn,argsS@args')
20              in              in
21                  createOps (es,offset+vn,code@[exp])                    createOps (es, offset + IntInf.fromInt vn, code@[exp])
22              end              end
23          in          in
24              createOps(pieces,0,[])              createOps(pieces,0,[])

Legend:
Removed from v.2631  
changed lines
  Added in v.2632

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