aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/pimod.c
diff options
context:
space:
mode:
authorFlorian Fischer <florian.fl.fischer@fau.de>2020-05-06 16:56:32 +0200
committerFlorian Fischer <florian.fl.fischer@fau.de>2020-06-02 11:18:47 +0200
commit8174a918ea3b7cb216bf7ea98cfdc10661b5c37d (patch)
tree0747ec3ccb9f8d7eeccfac35977fc17855ca3bbb /src/benchmarks/cfrac/pimod.c
parent8f52e8fc02dd235582f5961941bcd564e9a681cd (diff)
downloadallocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.tar.gz
allocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.zip
make the whole project more python idiomatic
* rename src directory to allocbench * make global variable names UPPERCASE * format a lot of code using yapf * use lowercase ld_preload and ld_library_path as Allocator members * name expected Errors 'err' and don't raise a new Exception * disable some pylint messages
Diffstat (limited to 'src/benchmarks/cfrac/pimod.c')
-rw-r--r--src/benchmarks/cfrac/pimod.c48
1 files changed, 0 insertions, 48 deletions
diff --git a/src/benchmarks/cfrac/pimod.c b/src/benchmarks/cfrac/pimod.c
deleted file mode 100644
index b26536d..0000000
--- a/src/benchmarks/cfrac/pimod.c
+++ /dev/null
@@ -1,48 +0,0 @@
-#include "pdefs.h"
-#include "precision.h"
-#ifdef ASM_16BIT
-#include "asm16bit.h"
-#endif
-
-/*
- * Single-digit remainder
- */
-int pimod(u, v)
- register precision u;
- int v;
-{
-#ifndef ASM_16BIT
- register digitPtr uPtr;
- register accumulator temp; /* 0 <= temp < base^2 */
-#endif
- register digit r = 0, d; /* 0 <= r,d < base */
- register int res = 0;
-
- (void) pparm(u);
- if (v < 0) d = (digit) -v; else d = (digit) v;
- if (d >= BASE) {
- errorp(PDOMAIN, "pimod", "divisor too big for single digit");
- goto done;
- }
- if (d == 0) {
- errorp(PDOMAIN, "pimod", "divide by zero");
- goto done;
- }
-#ifndef ASM_16BIT
- uPtr = u->value + u->size;
- r = 0; /* r is current remainder */
- do {
- temp = mulBase(r); /* 0 <= temp <= (base-1)^2 */
- temp += *--uPtr; /* 0 <= temp <= base(base-1) */
- r = temp % d; /* 0 <= r < base */
- } while (uPtr > u->value);
-#else
- r = memmodw1(u->value, u->size, d);
-#endif
-
- res = (int) r;
- if (u->sign) res = -res;
-done:
- pdestroy(u);
- return res;
-}