View | Details | Raw Unified
Collapse All | Expand All

(-) a/gsl/mlgsl_error.c (-1 / +2 lines)
 Lines 43-49   void ml_gsl_raise_exn(int gsl_errno) Link Here  
  exn_arg = alloc_small(2, 0);
  exn_arg = alloc_small(2, 0);
  Store_field(exn_arg, 0, Val_int(conv_err_code(gsl_errno)));
  Store_field(exn_arg, 0, Val_int(conv_err_code(gsl_errno)));
  Store_field(exn_arg, 1, copy_string(ml_gsl_exn_msg));
  Store_field(exn_arg, 1, copy_string(ml_gsl_exn_msg));
  CAMLreturn(raise_with_arg(*ml_gsl_exn, exn_arg));
 
  raise_with_arg(*ml_gsl_exn, exn_arg);
 

              
  CAMLreturn0;

            

        
}
}

        

        
static void ml_gsl_error_handler(const char *reason, const char *file,
static void ml_gsl_error_handler(const char *reason, const char *file,