aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/itop.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/benchmarks/cfrac/itop.c')
-rw-r--r--src/benchmarks/cfrac/itop.c25
1 files changed, 0 insertions, 25 deletions
diff --git a/src/benchmarks/cfrac/itop.c b/src/benchmarks/cfrac/itop.c
deleted file mode 100644
index 87d309a..0000000
--- a/src/benchmarks/cfrac/itop.c
+++ /dev/null
@@ -1,25 +0,0 @@
-#include "pdefs.h"
-#include "pcvt.h"
-#include "precision.h"
-
-/*
- * Integer to Precision
- */
-precision itop(i)
- register int i;
-{
- register digitPtr uPtr;
- register precision u = palloc(INTSIZE);
-
- if (u == pUndef) return u;
-
- if (u->sign = (i < 0)) i = -i;
- uPtr = u->value;
- do {
- *uPtr++ = modBase(i);
- i = divBase(i);
- } while (i != 0);
-
- u->size = (uPtr - u->value); /* normalize */
- return presult(u);
-}