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

SCM Repository

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

Diff of /branches/vis12/src/compiler/c-target/c-target.sml

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

revision 1806, Sat Apr 7 00:02:25 2012 UTC revision 1807, Sat Apr 7 12:00:48 2012 UTC
# Line 255  Line 255 
255                val globTy = CL.T_Ptr(CL.T_Named(N.globalTy tgt))                val globTy = CL.T_Ptr(CL.T_Named(N.globalTy tgt))
256                val init = CL.mkBlock(                val init = CL.mkBlock(
257                      CL.mkDeclInit(globTy, "glob", CL.mkIndirect(CL.mkVar "wrld", "globals")) ::                      CL.mkDeclInit(globTy, "glob", CL.mkIndirect(CL.mkVar "wrld", "globals")) ::
258                      CL.unBlock init)                      CL.unBlock init @ [CL.mkReturn(SOME(CL.mkVar "false"))])
259                val initFn = CL.D_Func(                val initFn = CL.D_Func(
260                      ["static"], CL.voidTy, N.initGlobals,                      ["static"], CL.boolTy, N.initGlobals,
261                      [CL.PARAM([], worldTy, "wrld")],                      [CL.PARAM([], worldTy, "wrld")],
262                      init)                      init)
263                in                in
# Line 334  Line 334 
334                        mkLoopNest iters                        mkLoopNest iters
335                      ]                      ]
336                val body = CL.mkBlock(                val body = CL.mkBlock(
337                      CL.mkCall (N.initGlobals, [CL.mkVar "wrld"]) ::                      CL.mkIfThen (CL.mkApply (N.initGlobals, [CL.mkVar "wrld"]),
338                            CL.mkReturn(SOME(CL.mkVar "true"))
339                          ) ::
340                      CL.mkDeclInit (globTy, "glob", CL.mkIndirect(CL.mkVar "wrld", "globals")) ::                      CL.mkDeclInit (globTy, "glob", CL.mkIndirect(CL.mkVar "wrld", "globals")) ::
341                      iterPrefix @                      iterPrefix @
342                      allocCode @                      allocCode @

Legend:
Removed from v.1806  
changed lines
  Added in v.1807

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