math/orpie/files/patch-gsl_mlgsl__error.c


1
2
3
4
5
6
7
8
9
10

--- gsl/mlgsl_error.c.orig	2014-04-12 01:43:31 UTC
+++ gsl/mlgsl_error.c
@@ -34,6 +34,7 @@ static value       *ml_gsl_exn;
 
 static void ml_gsl_raise_exn(const char *msg, int gsl_errno)
 {
+  CAMLparam0();
   CAMLlocal2(exn_msg, exn_arg);
   exn_msg = copy_string(msg);
   exn_arg = alloc_small(2, 0);