summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlastair Reid2018-06-27 14:39:09 +0100
committerAlastair Reid2018-06-27 15:31:07 +0100
commit195f96ab4f10d69343ee6b7a1c1b2155af89608b (patch)
treebfb70cc06c07cc2bdb62bd49a9514461365a9382 /src
parentadd767470c0483905e71c93ad161523a80c898d3 (diff)
RTS: Delete __SetConfig stub function
This is now directly supported from SAIL so we can call the SAIL __SetConfig function instead.
Diffstat (limited to 'src')
-rw-r--r--src/c_backend.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/c_backend.ml b/src/c_backend.ml
index 3b57c9ed..ef2d9a58 100644
--- a/src/c_backend.ml
+++ b/src/c_backend.ml
@@ -2748,13 +2748,13 @@ let compile_ast ctx (Defs defs) =
let postamble = separate hardline (List.map string
( [ "int main(int argc, char *argv[])";
"{";
- " setup_rts();";
- " if (process_arguments(argc, argv)) exit(EXIT_FAILURE);" ]
+ " setup_rts();" ]
@ fst exn_boilerplate
@ startup cdefs
@ List.concat (List.map (fun r -> fst (register_init_clear r)) regs)
@ (if regs = [] then [] else [ " zinitializze_registers(UNIT);" ])
@ letbind_initializers
+ @ [ " if (process_arguments(argc, argv)) exit(EXIT_FAILURE);" ]
@ [ " zmain(UNIT);" ]
@ letbind_finalizers
@ List.concat (List.map (fun r -> snd (register_init_clear r)) regs)