From 0dbce74fc87015b7efa837f7529513075b6d73be Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Sun, 20 Jan 2002 17:39:10 +0000 Subject: lazy a la Tolmach git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4291 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/misc.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'byterun/misc.c') diff --git a/byterun/misc.c b/byterun/misc.c index c73c9b5f05..536bd1b4a8 100644 --- a/byterun/misc.c +++ b/byterun/misc.c @@ -23,12 +23,13 @@ #ifdef DEBUG -void caml_failed_assert (char * expr, char * file, int line) +int caml_failed_assert (char * expr, char * file, int line) { fprintf (stderr, "file %s; line %d ### Assertion failed: %s\n", file, line, expr); fflush (stderr); exit (100); + return 1; /* not reached */ } #endif -- cgit v1.2.1