Commit 36695890 authored by panne's avatar panne
Browse files

[project @ 2000-06-25 17:25:42 by panne]

Keep gcc -Wall happy
parent 86d6ddb1
/* -----------------------------------------------------------------------------
* $Id: Main.c,v 1.24 2000/04/26 09:28:18 simonmar Exp $
* $Id: Main.c,v 1.25 2000/06/25 17:25:42 panne Exp $
*
* (c) The GHC Team 1998-2000
*
......@@ -126,5 +126,6 @@ int main(int argc, char *argv[])
barf("main thread completed with invalid status");
}
shutdownHaskellAndExit(exit_status);
return 0; /* never reached, keep gcc -Wall happy */
}
# endif /* BATCH_MODE */
/* -----------------------------------------------------------------------------
* $Id: StgMiscClosures.hc,v 1.44 2000/04/27 16:29:55 sewardj Exp $
* $Id: StgMiscClosures.hc,v 1.45 2000/06/25 17:25:42 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -41,6 +41,7 @@ STGFUN(type##_entry) \
FB_ \
DUMP_ERRMSG(#type " object entered!\n"); \
STGCALL1(shutdownHaskellAndExit, EXIT_FAILURE); \
return NULL; \
FE_ \
}
......@@ -588,6 +589,7 @@ STGFUN(stg_error_entry) \
FB_ \
DUMP_ERRMSG("fatal: stg_error_entry"); \
STGCALL1(shutdownHaskellAndExit, EXIT_FAILURE); \
return NULL; \
FE_ \
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment