diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/fmtlib.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/fmtlib.c | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/fmtlib.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/fmtlib.c deleted file mode 100644 index 279f66f4390..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/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 |