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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/codegen/clang.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/codegen/clang.sml

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

revision 2050, Mon Oct 22 14:11:49 2012 UTC revision 2051, Mon Oct 22 14:14:10 2012 UTC
# Line 241  Line 241 
241        | mkBlock stms = S_Block stms        | mkBlock stms = S_Block stms
242      fun unBlock (S_Block stms) = stms      fun unBlock (S_Block stms) = stms
243        | unBlock stm = [stm]        | unBlock stm = [stm]
244        fun prependStm (stm, blk) = mkBlock(stm :: unBlock blk)
245        fun appendStm (blk, stm) = mkBlock(unBlock blk @ [stm])
246      fun mkDecl (ty, x, init) = S_Decl([], ty, x, init)      fun mkDecl (ty, x, init) = S_Decl([], ty, x, init)
247      fun mkDeclInit (ty, x, init) = S_Decl([], ty, x, SOME(I_Exp init))      fun mkDeclInit (ty, x, init) = S_Decl([], ty, x, SOME(I_Exp init))
248      val mkAttrDecl = S_Decl      val mkAttrDecl = S_Decl

Legend:
Removed from v.2050  
changed lines
  Added in v.2051

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