aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/pfloat.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/pfloat.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/pfloat.c')
-rw-r--r--src/benchmarks/cfrac/pfloat.c61
1 files changed, 0 insertions, 61 deletions
diff --git a/src/benchmarks/cfrac/pfloat.c b/src/benchmarks/cfrac/pfloat.c
deleted file mode 100644
index 63f4344..0000000
--- a/src/benchmarks/cfrac/pfloat.c
+++ /dev/null
@@ -1,61 +0,0 @@
-/*
- * High Precision Math Library Supplement for floating point routines
- */
-#include <stdio.h>
-#include <math.h>
-#include "pdefs.h"
-#include "pcvt.h"
-#include "precision.h"
-
-extern precision palloc();
-
-/*
- * double to precision
- */
-precision dtop(f)
- register double f;
-{
- register digitPtr uPtr;
- register precision u;
-
- u = palloc(DOUBLESIZE); /* pretty big */
- if (u == pUndef) return u;
-
- if (f < 0.0) {
- f = -f;
- u->sign = true;
- } else {
- u->sign = false;
- }
- uPtr = u->value;
- do {
- *uPtr++ = fmod(f, (double) BASE);
- f = floor(f / (double) BASE);
- } while (f != 0.0);
-
- u->size = (uPtr - u->value);
-
- return presult(u);
-}
-
-/*
- * precision to double (no overflow check)
- */
-double ptod(u)
- precision u;
-{
- register digitPtr uPtr;
- register double f;
-
- (void) pparm(u);
- uPtr = u->value + u->size;
- f = 0.0;
- do {
- f = f * (double) BASE + (double) *--uPtr;
- } while (uPtr > u->value);
-
- if (u->sign) f = -f;
-
- pdestroy(u);
- return f;
-}