version 1.2, 2015/03/22 00:40:32 |
version 1.3, 2015/03/24 04:59:24 |
|
|
#include <stdio.h> |
#include <stdio.h> |
|
|
#include "t-gsl_errno.h" |
#include "t-gsl_errno.h" |
|
#include "oxprint.h" |
|
|
gsl_error_handler_t * gsl_error_handler = NULL; |
gsl_error_handler_t * gsl_error_handler = NULL; |
|
|
Line 37 gsl_error (const char * reason, const char * file, int |
|
Line 38 gsl_error (const char * reason, const char * file, int |
|
return ; |
return ; |
} |
} |
|
|
fprintf (stderr,"ERROR file %s, line %d, code %d", file, (int) line, (int) reason); |
oxprintfe("ERROR file %s, line %d, code %d", file, (int) line, (int) reason); |
|
|
fflush (stdout); |
oxprintfe("Default GSL error handler invoked.\n"); |
fprintf (stderr, "Default GSL error handler invoked.\n"); |
oxflush(); |
fflush (stderr); |
|
|
|
/* abort (); */ |
oxabort(); |
} |
} |
|
|
gsl_error_handler_t * |
gsl_error_handler_t * |