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 552, Fri Feb 18 15:09:08 2011 UTC revision 553, Fri Feb 18 19:18:47 2011 UTC
# Line 307  Line 307 
307          fun ifthen ((e, T_Bool), s1) = CL.mkIfThen(e, s1)          fun ifthen ((e, T_Bool), s1) = CL.mkIfThen(e, s1)
308          fun ifthenelse ((e, T_Bool), s1, s2) = CL.mkIfThenElse(e, s1, s2)          fun ifthenelse ((e, T_Bool), s1, s2) = CL.mkIfThenElse(e, s1, s2)
309        (* special Diderot forms *)        (* special Diderot forms *)
310          fun cons (lhs, args) = comment ["**** cons ****"] (* FIXME *)          fun cons ((T_Vec n, x), args : exp list) =
311                  CL.mkAssign(CL.mkVar x, CL.mkApply(RN.mkVec n, List.map #1 args))
312              | cons _ = raise Fail "bogus cons"
313          fun getImgData (lhs, n, e) = comment ["**** getImgData ****"] (* FIXME *)          fun getImgData (lhs, n, e) = comment ["**** getImgData ****"] (* FIXME *)
314          fun loadImage (lhs : var, dim, name : exp) = let          fun loadImage (lhs : var, dim, name : exp) = let
315                val sts = "sts"                val sts = "sts"

Legend:
Removed from v.552  
changed lines
  Added in v.553

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