files/bootstrap-main.c

   1 #include "Rts.h"
   2
   3 /* A quick and dirty hack to resurrect -fvia-C from bitrot.
   4  *
   5  * The main function has been removed from rts. It's now generated by
   6  * compiler/main/DriverPipeline.hs but that doesn't play nice with
   7  * -fvia-C.
   8  */
   9
  10 extern StgClosure ZCMain_main_closure;
  11
  12 int main(int argc, char *argv[])
  13 {
  14     RtsConfig __conf = defaultRtsConfig;
  15     __conf.rts_opts_enabled = RtsOptsAll;
  16     return hs_main(argc, argv, &ZCMain_main_closure, __conf);
  17 }