summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c51
1 files changed, 0 insertions, 51 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c
deleted file mode 100644
index 279f66f4390..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/fmtlib.c
+++ /dev/null
@@ -1,51 +0,0 @@
-/* @(#)fmtlib.c 1.2 */
-#define MAXINTLENGTH 23
-
-#include "f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifndef Allow_TYQUAD
-#undef longint
-#define longint long
-#undef ulongint
-#define ulongint unsigned long
-#endif
-
-#ifdef KR_headers
-char *f__icvt(value,ndigit,sign, base) longint value; int *ndigit,*sign;
- register int base;
-#else
-char *f__icvt(longint value, int *ndigit, int *sign, int base)
-#endif
-{
- static char buf[MAXINTLENGTH+1];
- register int i;
- ulongint uvalue;
-
- if(value > 0) {
- uvalue = value;
- *sign = 0;
- }
- else if (value < 0) {
- uvalue = -value;
- *sign = 1;
- }
- else {
- *sign = 0;
- *ndigit = 1;
- buf[MAXINTLENGTH-1] = '0';
- return &buf[MAXINTLENGTH-1];
- }
- i = MAXINTLENGTH;
- do {
- buf[--i] = (uvalue%base) + '0';
- uvalue /= base;
- }
- while(uvalue > 0);
- *ndigit = MAXINTLENGTH - i;
- return &buf[i];
- }
-#ifdef __cplusplus
-}
-#endif