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 2839, Tue Nov 25 19:45:46 2014 UTC revision 2840, Tue Nov 25 19:46:43 2014 UTC
# Line 531  Line 531 
531    
532                  | Src.OP(rator,args) =>let                  | Src.OP(rator,args) =>let
533    
                     val _ =testp[ ("\n ***** New Op \n \t"^SrcOp.toString rator)]  
                     val args'=List.map (useVar env) args  
                     val _ =List.map (fn e=> testp[Dst.toString e]) args'  
534    
535                        val args'=List.map (useVar env) args
536                        val a=List.map (fn e=> Dst.toString e) args'
537                         val _ =testp[ "\n ***** New Op \n \t",SrcOp.toString rator,
538                                " Args(",String.concatWith"," a,")"]
539                      (*DstOP rator, original size of vector operation, args that are scalar and vectors*)                      (*DstOP rator, original size of vector operation, args that are scalar and vectors*)
540                      fun foundVec(origrator,rator,oSize,argsS,argsV)= let                      fun foundVec(origrator,rator,oSize,argsS,argsV)= let
541                          val (isFill,nSize,Pieces)=Target.getVecTy oSize                          val (isFill,nSize,Pieces)=Target.getVecTy oSize

Legend:
Removed from v.2839  
changed lines
  Added in v.2840

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