| #include <stdio.h> |
| #include <stdlib.h> |
| #include "precision.h" |
| |
| /* |
| * Fatal error (user substitutable) |
| * |
| * PNOMEM - out of memory (pcreate) |
| * PREFCOUNT - refcount negative (pdestroy) |
| * PUNDEFINED - undefined value referenced (all) |
| * PDOMAIN - domain error |
| * pdivmod: divide by zero |
| * psqrt: negative argument |
| * POVERFLOW - overflow |
| * itop: too big |
| */ |
| precision errorp(errnum, routine, message) |
| int errnum; |
| char *routine; |
| char *message; |
| { |
| fputs(routine, stderr); |
| fputs(": ", stderr); |
| fputs(message, stderr); |
| fputs("\n", stderr); |
| abort(); /* remove this line if you want */ |
| return pUndef; |
| } |