#include "Cmm.h"

section "rodata" { msg : bits8[] "Test\n"; }
section "data" { faketso : bits8[1000]; }

stg_myExit {
   foreign "C" stg_exit(0);
}

stg_foo {
  
   BaseReg = faketso;

   SAVE_REGS();

   foreign "C" printf(msg "ptr");

   RESTORE_REGS();

   jump stg_myExit [*]; // all registers live
}

INFO_TABLE_CONSTR(ZCMain_main,0,0,0,CONSTR_NOCAF,"MAIN","MAIN")
{
   jump stg_foo [];
}

CLOSURE(ZCMain_main_closure,ZCMain_main);