Also changed exitcode of -1 to 1 in hpc.
} else {
fprintf(stderr,"(perhaps remove .tix file?)\n");
}
} else {
fprintf(stderr,"(perhaps remove .tix file?)\n");
}
}
static int init_open(FILE *file) {
}
static int init_open(FILE *file) {
fprintf(stderr,"in module '%s'\n",tmpModule->modName);
failure("module mismatch with .tix/.mix file hash number");
fprintf(stderr,"(perhaps remove %s ?)\n",tixFilename);
fprintf(stderr,"in module '%s'\n",tmpModule->modName);
failure("module mismatch with .tix/.mix file hash number");
fprintf(stderr,"(perhaps remove %s ?)\n",tixFilename);
}
for(i=0;i < modCount;i++) {
}
for(i=0;i < modCount;i++) {
}
/* -----------------------------------------------------------------------------
* initialize the object linker
}
/* -----------------------------------------------------------------------------
* initialize the object linker
else if (strequal("info",
&rts_argv[arg][2])) {
printRtsInfo();
else if (strequal("info",
&rts_argv[arg][2])) {
printRtsInfo();
}
else {
errorBelch("unknown RTS option: %s",rts_argv[arg]);
}
else {
errorBelch("unknown RTS option: %s",rts_argv[arg]);
*
* seh_excn provides two macros, BEGIN_CATCH and END_CATCH, which
* will catch such exceptions in the code they bracket and die by
*
* seh_excn provides two macros, BEGIN_CATCH and END_CATCH, which
* will catch such exceptions in the code they bracket and die by
- * printing a message and calling exit(1).
+ * printing a message and calling stg_exit(1).
-#define ON_DIV_ZERO fprintf(stdout,"divide by zero\n"); fflush(stdout);exit(1)
-#define ON_STACK_OVERFLOW fprintf(stdout,"C stack overflow in generated code\n"); fflush(stdout); exit(1)
-#define ON_SIGSEGV fprintf(stdout,"Segmentation fault/access violation in generated code\n"); fflush(stdout); exit(1)
+#define ON_DIV_ZERO fprintf(stdout,"divide by zero\n"); fflush(stdout);stg_exit(1)
+#define ON_STACK_OVERFLOW fprintf(stdout,"C stack overflow in generated code\n"); fflush(stdout); stg_exit(1)
+#define ON_SIGSEGV fprintf(stdout,"Segmentation fault/access violation in generated code\n"); fflush(stdout); stg_exit(1)
#if defined(__MINGW32__)
extern jmp_buf seh_unwind_to;
#if defined(__MINGW32__)
extern jmp_buf seh_unwind_to;