* device/include/pic16/pic18f*.h: add bit aliases in INTCONbits_t

[fw/sdcc] / src / z80 / support.c

diff --git a/src/z80/support.c b/src/z80/support.c
index 01bbe8454170cd9d6cd284c9f7f0b4ab27e85d4b..05352a5643e4016f3a37028ddc7343a4dfbea853 100644 (file)
--- a/src/z80/support.c
+++ b/src/z80/support.c
@@ -3,32 +3,35 @@
 #include "z80.h"
 #include <math.h>
 
-int convertFloat(Z80_FLOAT *f, double native)
+int
+convertFloat (Z80_FLOAT * f, double native)
 {
-    unsigned long mantissa, exponent;
-    double f2;
-    wassert(f);
-    if (native!=0) {
-       f2 = floor(log(fabs(native))/log(2))+1;
-       mantissa = 0x1000000*fabs(native)/exp(f2*log(2));
-       mantissa &= 0xffffff;
-       exponent = f2 + 0x40;
-       if (native<0)
-           exponent |= 0x80;
+  unsigned long mantissa, exponent;
+  double f2;
+  wassert (f);
+  if (native != 0)
+    {
+      f2 = floor (log (fabs (native)) / log (2)) + 1;
+      mantissa = (unsigned long) (0x1000000 * fabs (native) / exp (f2 * log (2))) ;
+      mantissa &= 0xffffff;
+      exponent = (unsigned long) (f2 + 0x40) ;
+      if (native < 0)
+       exponent |= 0x80;
     }
-    else {
-       mantissa = 0;
-       exponent = 0;
+  else
+    {
+      mantissa = 0;
+      exponent = 0;
     }
 
-    f->w[0] = (WORD)mantissa;
-    f->w[1] = (BYTE)(mantissa>>16);
-    f->w[1] |= exponent << 8;
-    
-    f->b[0] = (BYTE)f->w[0];
-    f->b[1] = (BYTE)(f->w[0]>>8);
-    f->b[2] = (BYTE)f->w[1];
-    f->b[3] = (BYTE)(f->w[1]>>8);
+  f->w[0] = (WORD) mantissa;
+  f->w[1] = (BYTE) (mantissa >> 16);
+  f->w[1] |= exponent << 8;
 
-    return 0;
+  f->b[0] = (BYTE) f->w[0];
+  f->b[1] = (BYTE) (f->w[0] >> 8);
+  f->b[2] = (BYTE) f->w[1];
+  f->b[3] = (BYTE) (f->w[1] >> 8);
+
+  return 0;
 }