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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-target/opr-to-clang.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-target/opr-to-clang.sml

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

revision 2666, Wed Jun 4 01:59:49 2014 UTC revision 2667, Thu Jun 5 18:54:12 2014 UTC
# Line 77  Line 77 
77      fun mkExtVar(n, varU,varA)=let      fun mkExtVar(n, varU,varA)=let
78          val uty=unionTy n          val uty=unionTy n
79          val exp=mkCastVar(uty, varA)          val exp=mkCastVar(uty, varA)
80          val C= CL.S_ExtAssign( uty,varU, exp)          val e1=CL.E_TyVar(uty,varU)
81            val e2=CL.E_Ext exp
82            val C= CL.S_Eq (e1, e2)
83            val C4=  CL.S_Exp(CL.E_AssignOp  (e1, CL.$=,e2))
84          in          in
85              (C,varU^".r")              (C,varU^".r")
86          end          end
# Line 85  Line 88 
88      fun mkExtStruct(n, varU,varA)=let      fun mkExtStruct(n, varU,varA)=let
89          val uty=unionTy n          val uty=unionTy n
90          val exp=mkCastStruct(uty, varA)          val exp=mkCastStruct(uty, varA)
91          val C= CL.S_ExtAssign( uty,varU, exp)          val e1= CL.E_TyVar(uty,varU)
92            val e2= CL.E_Ext exp
93            val C= CL.S_Eq( e1, e2)
94             val C4= CL.S_Exp( CL.E_AssignOp (e1,CL.$=, e2))
95    
96          in          in
97              (C,varU^".r")              (C,varU^".r")
98          end          end
# Line 164  Line 171 
171    
172          (*Return Expression *)          (*Return Expression *)
173          val indexedVec=indexDiderotType(CL.E_Var ur,d-1)          val indexedVec=indexDiderotType(CL.E_Var ur,d-1)
174          val body=SOME(mkAddM indexedVec)          val body=(mkAddM indexedVec)
175          val rtn=CL.S_Return body          val rtn=CL.S_Return(SOME body)
176          in          in
177              createDec(rtnType, fnName, params,[e,rtn])              createDec(rtnType, fnName, params,[e,rtn])
178          end          end

Legend:
Removed from v.2666  
changed lines
  Added in v.2667

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