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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml

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

revision 805, Tue Apr 12 06:16:19 2011 UTC revision 806, Tue Apr 12 14:07:55 2011 UTC
# Line 449  Line 449 
449      structure Stmt =      structure Stmt =
450        struct        struct
451          val comment = CL.S_Comment          val comment = CL.S_Comment
452          fun assignState (V(_, x), E(e, _)) =          fun assignState (V(ty, x), E(e, _)) = (case (ty, e)
453                CL.mkAssign(CL.mkIndirect(CL.mkVar "selfOut", x), e)                 of (T_Mat(n,m), CL.E_Var _) =>
454          fun assign (V(_, x), E(e, _)) = CL.mkAssign(CL.mkVar x, e)                      CL.mkCall(RN.copyMat(n,m), [CL.mkIndirect(CL.mkVar "selfOut", x), e])
455                    | _ => CL.mkAssign(CL.mkIndirect(CL.mkVar "selfOut", x), e)
456                  (* end case *))
457            fun assign (V(ty, x), E(e, _)) = (case (ty, e)
458                   of (T_Mat(n,m), CL.E_Var y) => CL.mkCall(RN.copyMat(n,m), [CL.mkVar x, e])
459                    | _ => CL.mkAssign(CL.mkVar x, e)
460                  (* end case *))
461          fun decl (V(ty, x), SOME(E(e, _))) = CL.mkDecl(cvtTy ty, x, SOME(CL.I_Exp e))          fun decl (V(ty, x), SOME(E(e, _))) = CL.mkDecl(cvtTy ty, x, SOME(CL.I_Exp e))
462            | decl (V(ty, x), NONE) = CL.mkDecl(cvtTy ty, x, NONE)            | decl (V(ty, x), NONE) = CL.mkDecl(cvtTy ty, x, NONE)
463          val block = CL.mkBlock          val block = CL.mkBlock

Legend:
Removed from v.805  
changed lines
  Added in v.806

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