1 files changed, 25 insertions, 0 deletions
diff --git a/src/benchmarks/cfrac/pneg.c b/src/benchmarks/cfrac/pneg.c
new file mode 100644
index 0000000..c781066
--- /dev/null
+++ b/src/benchmarks/cfrac/pneg.c
@@ -0,0 +1,25 @@
+#include "pdefs.h"	/* private include file */
+#include "precision.h"	/* public include file for forward refs */
+#include <string.h>
+
+/*
+ * negation
+ */
+precision pneg(u)
+   register precision u;
+{
+   precision w;
+
+   (void) pparm(u);
+   w = palloc(u->size);
+   if (w == pUndef) return w;
+
+   w->sign = u->sign;
+   if (pnez(u)) {		/* don't create a negative 0 */
+      w->sign = !w->sign;
+   }
+   (void) memcpy(w->value, u->value, u->size * sizeof(digit));
+
+   pdestroy(u);
+   return presult(w);
+}