aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/pneg.c
diff options
context:
space:
mode:
authorFlorian Fischer <florian.fl.fischer@fau.de>2019-08-24 17:57:51 +0200
committerFlorian Fischer <florian.fl.fischer@fau.de>2019-08-24 17:57:51 +0200
commit77ac9ce0a5c55d4f79f8fb8f7daa59ddb53cb507 (patch)
tree93d4e30a207265af03394d347bfff76ba677f3ce /src/benchmarks/cfrac/pneg.c
parent971adefadb94e8780b1a73f08ed11d76c2ead8a2 (diff)
downloadallocbench-77ac9ce0a5c55d4f79f8fb8f7daa59ddb53cb507.tar.gz
allocbench-77ac9ce0a5c55d4f79f8fb8f7daa59ddb53cb507.zip
add cfrac benchmark
Diffstat (limited to 'src/benchmarks/cfrac/pneg.c')
-rw-r--r--src/benchmarks/cfrac/pneg.c25
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);
+}