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 2680, Wed Aug 6 00:51:53 2014 UTC revision 2681, Sun Aug 24 18:59:07 2014 UTC
# Line 376  Line 376 
376                      val isBind=true                      val isBind=true
377                      val isStatement=false                      val isStatement=false
378    
379    
380                      in (case (expOpt,storeVecStatement,storeVecExp,isStatement)                      in (case (expOpt,storeVecStatement,storeVecExp,isStatement)
381                          of (SOME exp,_,_,_)=>  (env,[Dst.S_Assign([t],exp)]) (*not using mkvec*)                          of (SOME x,_,_,_)=>  let
382                          | (NONE,_,SOME x,false)=>                               val _=print(String.concat["**\n~~",Dst.toString x])
383                               in
384                                    (env,[Dst.S_Assign([t],x)]) (*not using mkvec*)
385                                end
386                            | (NONE,_,SOME x,false)=>let
387                                 val _=print(String.concat["**\nExp-",Dst.toString x])
388                                in
389                              if isBind then  bind (env, lhs, x)                              if isBind then  bind (env, lhs, x)
390                              else assignExp (env, x)                              else assignExp (env, x)
391                         | (NONE,SOME x,_,true)=>(env,[x])                              end
392                            | (NONE,SOME x,_,true)=> let
393                                val _ =print(String.concat["**\nStmt-",Dst.toStringS x])
394                                in
395                                    (env,[x])
396                                end
397                            (*end case*))
398    
399                    (*
400                        in (case (expOpt,storeVecStatement)
401                            of (SOME exp,_)     => let
402                               (* Dst.S_Assign([t],exp)*)
403                                    val _=print(String.concat["**\n",Dst.toString exp])
404                                    in
405                                    if isBind then  bind (env, lhs, exp)
406                                    else assignExp (env, exp)
407                                    end
408    
409                            | (_,SOME stmt)    =>  (print(String.concat["**\n",Dst.toStringS stmt]); (env,[stmt]))
410                          (*end case*))                          (*end case*))
411    
412                        *)
413    
414                     end                     end
415    
416                  val _= print (String.concat ["\n **************************** \n Analyzing ", SrcOp.toString rator])                  val _= print (String.concat ["\n **************************** \n Analyzing ", SrcOp.toString rator])

Legend:
Removed from v.2680  
changed lines
  Added in v.2681

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