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 4167, Thu Jul 7 15:57:07 2016 UTC revision 4168, Thu Jul 7 16:48:41 2016 UTC
# Line 111  Line 111 
111            end            end
112    
113  (* QUESTION: should init_globals be a member of the world struct? *)  (* QUESTION: should init_globals be a member of the world struct? *)
114      fun genInitGlobals (env, body) = let      fun genInitGlobals (env, IR.Block{locals, body}) = let
115            val env = Env.setExitHandler (env, fn _ => [CL.mkReturn(SOME(CL.mkVar "false"))])          (* the init_globals function should return false on success *)
116              val body = IR.Block{
117                      locals=locals,
118                      body=body@[IR.S_Return(IR.E_Lit(Literal.Bool false))]
119                    }
120            in            in
121              CL.D_Func(["static"], CL.boolTy, [], "init_globals",              CL.D_Func(["static"], CL.boolTy, [], "init_globals",
122                [RN.worldParam],                [RN.worldParam],

Legend:
Removed from v.4167  
changed lines
  Added in v.4168

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