summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libI77/fmtlib.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/libf2c/libI77/fmtlib.c')
-rw-r--r--contrib/libf2c/libI77/fmtlib.c64
1 files changed, 32 insertions, 32 deletions
diff --git a/contrib/libf2c/libI77/fmtlib.c b/contrib/libf2c/libI77/fmtlib.c
index 69c0d9b..3d2a299 100644
--- a/contrib/libf2c/libI77/fmtlib.c
+++ b/contrib/libf2c/libI77/fmtlib.c
@@ -10,37 +10,37 @@
#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
+char *
+f__icvt (longint value, int *ndigit, int *sign, int base)
{
- static char buf[MAXINTLENGTH+1];
- register int i;
- ulongint uvalue;
+ 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];
- }
+ 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];
+}
OpenPOWER on IntegriCloud