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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen.sml

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

revision 3958, Sun Jun 12 19:51:51 2016 UTC revision 3959, Mon Jun 13 14:54:10 2016 UTC
# Line 91  Line 91 
91                end                end
92              else []              else []
93    
94      fun genInitGlobals (env, globalInit) =      fun genInitGlobals (env, IR.Block{locals, body}) = let
95              val env = Env.setExitHandler (env, fn _ => [CL.mkReturn(SOME(CL.mkVar "false"))])
96              val dcl = CL.mkDeclInit(
97                    RN.globalPtrTy, RN.globalsVar,
98                    CL.mkIndirect(CL.mkVar RN.worldVar, "_globals"))
99              in
100            CL.D_Func(["static"], CL.boolTy, "init_globals",            CL.D_Func(["static"], CL.boolTy, "init_globals",
101              [CL.PARAM(["const"], RN.worldPtrTy, RN.worldVar)],                [RN.worldParam],
102  (* FIXME: need to generate code from globalInit *)                TreeToCxx.trWithLocals (env, !locals,
103              CL.mkReturn(SOME(CL.mkVar "false")))                  fn env => dcl :: #2(TreeToCxx.trStms(env, body))))
104              end
105    
106      fun runFrag (spec, subs) = if TargetSpec.noBSP spec      fun runFrag (spec, subs) = if TargetSpec.noBSP spec
107              then verbFrag (spec, Fragments.parallelRunNoBSP, Fragments.sequentialRunNoBSP, subs)              then verbFrag (spec, Fragments.parallelRunNoBSP, Fragments.sequentialRunNoBSP, subs)

Legend:
Removed from v.3958  
changed lines
  Added in v.3959

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