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/low-to-tree-fn.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/low-to-tree-fn.sml

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

revision 2856, Thu Jan 15 01:42:24 2015 UTC revision 2857, Sun Jan 18 17:30:52 2015 UTC
# Line 695  Line 695 
695                      * Hooray! We can assume everything is an array and S_Copy everything                      * Hooray! We can assume everything is an array and S_Copy everything
696                      *)                      *)
697                      val args' =  List.map (useVar env) args                      val args' =  List.map (useVar env) args
698                      val _ =print(String.concat["******************************\n CONS_Matrix  \n ",                      val _ =testp["******************************\n CONS_Matrix  \n ",
699                              "Number of args",Int.toString (length args),"---\n",Dst.toStrings args'])                              "Number of args",Int.toString (length args),"---\n",Dst.toStrings args']
700                      val (env2, t) = doLHS()                      val (env2, t) = doLHS()
701                      val shift=j*i (*New row index shift *)                      val shift=j*i (*New row index shift *)
702                      fun f ([], _ ) = []                      fun f ([], _ ) = []
703                          | f (e1::es,count)= [Dst.S_Copy(Dst.E_Var t, e1, count,shift)]@ f(es,count+shift)                          | f (e1::es,count)= [Dst.S_Copy(Dst.E_Var t, e1, count,shift)]@ f(es,count+shift)
704                      val stmts=f (args',0)                      val stmts=f (args',0)
705                      val _ =print(String.concat["\n returning statements \n"^Dst.toStringSs stmts,"\n  end ******************************\n"])                      val _ =testp["\n returning statements \n"^Dst.toStringSs stmts,"\n  end ******************************\n"]
706                      in                      in
707                          (env2, List.rev stmts)                          (env2, List.rev stmts)
708                      end                      end

Legend:
Removed from v.2856  
changed lines
  Added in v.2857

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