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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/tree-il/low-to-tree-fn.sml
ViewVC logotype

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

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

revision 3343, Thu Oct 22 14:15:20 2015 UTC revision 3344, Fri Oct 23 04:38:49 2015 UTC
# Line 476  Line 476 
476                          (*end case *))                          (*end case *))
477    
478                      val (env,stmt)= bindSimple (env, lhs,exp)                      val (env,stmt)= bindSimple (env, lhs,exp)
479                      val _ =(String.concat["\n**** State-",Dst.toString exp,"=",Dst.toString exp])                      val _ =print(String.concat["\n**** State-",Dst.toString exp,"=",Dst.toString exp])
480                      (*adds loadArr function to env*)                      (*adds loadArr function to env*)
481                      val env'=addOprFromExp(env, exp)                      val env'=addOprFromExp(env, exp)
482    
# Line 690  Line 690 
690    
691                      val args' = List.map (useVar env) args                      val args' = List.map (useVar env) args
692                      val (env2, t) = doLHS()                      val (env2, t) = doLHS()
693                      val _= (String.concat["\n ****** here **\n  ",LowToS.rhsToString  (Src.CONS(ty , args)),                      val _= print(String.concat["\n ****** here **\n  ",LowToS.rhsToString  (Src.CONS(ty , args)),
694                      "\n\t* lhsName:" ,SrcV.name lhs," type:",Ty.toString(SrcV.ty lhs),                      "\n\t* lhsName:" ,SrcV.name lhs," type:",Ty.toString(SrcV.ty lhs),
695                      "\nt",DstV.name t,"-kind:",Dst.kindToString (DstV.kind t),"\n"])                      "\nt",DstV.name t,"-kind:",Dst.kindToString (DstV.kind t),"\n"])
696                      in case DstV.kind t                      in case DstV.kind t
697                          of TreeIL.VK_Local=> let                          of TreeIL.VK_Local=> let
698                              val (isFill,nSize,pieces)=Target.getVecTy oSize                              val (isFill,nSize,pieces)=Target.getVecTy oSize
699                              val exp = LowOpToTreeOp.consVecToTree(nSize,oSize,pieces,args',isFill)                              val exp = LowOpToTreeOp.consVecToTree(nSize,oSize,pieces,args',isFill)
700                              val _ =(String.concat["\nExp\n",Dst.toString exp])                              val _ =print(String.concat["\nExp\n",Dst.toString exp])
701                              in                              in
702                                bind (env2, lhs, exp)                                bind (env2, lhs, exp)
703                              end                              end
# Line 911  Line 911 
911                      *)                      *)
912                      val x=getStateVar lhs                      val x=getStateVar lhs
913                      val rhs2=useVar env rhs                      val rhs2=useVar env rhs
914                      val _ =(String.concat["\n *********** \n FOUND SAVE \n\t  StateVar: ",Dst.stateVarToString x,                      val _ =print(String.concat["\n *********** \n FOUND SAVE \n\t  StateVar: ",Dst.stateVarToString x,
915                                      ":  Rest rhs: ",Dst.toString  rhs2,"--end "])                                      ":  Rest rhs: ",Dst.toString  rhs2,"--end "])
916                      fun size n=foldl (fn (a,b) => b*a) 1 n                      fun size n=foldl (fn (a,b) => b*a) 1 n
917                      val stm=(case  rhs2                      val stm=(case  rhs2

Legend:
Removed from v.3343  
changed lines
  Added in v.3344

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