From 77ac9ce0a5c55d4f79f8fb8f7daa59ddb53cb507 Mon Sep 17 00:00:00 2001
From: Florian Fischer <florian.fl.fischer@fau.de>
Date: Sat, 24 Aug 2019 17:57:51 +0200
Subject: add cfrac benchmark

---
 src/benchmarks/cfrac/errorp.c | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/benchmarks/cfrac/errorp.c

(limited to 'src/benchmarks/cfrac/errorp.c')

diff --git a/src/benchmarks/cfrac/errorp.c b/src/benchmarks/cfrac/errorp.c
new file mode 100644
index 0000000..5868aa4
--- /dev/null
+++ b/src/benchmarks/cfrac/errorp.c
@@ -0,0 +1,27 @@
+#include <stdio.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;
+}
-- 
cgit v1.2.3