Exporter caml_fatal_error*, la lib str les utilise

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6177 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

2 files changed, 9 insertions, 8 deletions

diff --git a/byterun/misc.c b/byterun/misc.c
index 618729e4a..8791eca42 100644
--- a/byterun/misc.c
+++ b/byterun/misc.c
@@ -41,19 +41,20 @@ void caml_gc_message (int level, char *msg, unsigned long arg)
   }
 }
 
-void caml_fatal_error (char *msg)
+CAMLexport void caml_fatal_error (char *msg)
 {
   fprintf (stderr, "%s", msg);
   exit(2);
 }
 
-void caml_fatal_error_arg (char *fmt, char *arg)
+CAMLexport void caml_fatal_error_arg (char *fmt, char *arg)
 {
   fprintf (stderr, fmt, arg);
   exit(2);
 }
 
-void caml_fatal_error_arg2 (char *fmt1, char *arg1, char *fmt2, char *arg2)
+CAMLexport void caml_fatal_error_arg2 (char *fmt1, char *arg1,
+				       char *fmt2, char *arg2)
 {
   fprintf (stderr, fmt1, arg1);
   fprintf (stderr, fmt2, arg2);
diff --git a/byterun/misc.h b/byterun/misc.h
index 298e7c669..e36c1586a 100644
--- a/byterun/misc.h
+++ b/byterun/misc.h
@@ -69,15 +69,15 @@ typedef char * addr;
 
 #ifdef DEBUG
 #define CAMLassert(x) ((x) ? 0 : caml_failed_assert ( #x , __FILE__, __LINE__))
-int caml_failed_assert (char *, char *, int);
+CAMLextern int caml_failed_assert (char *, char *, int);
 #else
 #define CAMLassert(x) 0
 #endif
 
-void caml_fatal_error (char *msg) Noreturn;
-void caml_fatal_error_arg (char *fmt, char *arg) Noreturn;
-void caml_fatal_error_arg2 (char *fmt1, char *arg1, 
-                            char *fmt2, char *arg2) Noreturn;
+CAMLextern void caml_fatal_error (char *msg) Noreturn;
+CAMLextern void caml_fatal_error_arg (char *fmt, char *arg) Noreturn;
+CAMLextern void caml_fatal_error_arg2 (char *fmt1, char *arg1, 
+				       char *fmt2, char *arg2) Noreturn;
 
 /* Data structures */