diff options
| author | Florian Fischer <florian.fl.fischer@fau.de> | 2020-05-06 16:56:32 +0200 |
|---|---|---|
| committer | Florian Fischer <florian.fl.fischer@fau.de> | 2020-06-02 11:18:47 +0200 |
| commit | 8174a918ea3b7cb216bf7ea98cfdc10661b5c37d (patch) | |
| tree | 0747ec3ccb9f8d7eeccfac35977fc17855ca3bbb /src/benchmarks/cfrac/pfloat.c | |
| parent | 8f52e8fc02dd235582f5961941bcd564e9a681cd (diff) | |
| download | allocbench-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.c | 61 |
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; -} |
