* Fixed svn:eol-style and svn:keywords properties

[fw/sdcc] / device / lib / pic / libsdcc / fsdiv.c

diff --git a/device/lib/pic/libsdcc/fsdiv.c b/device/lib/pic/libsdcc/fsdiv.c
index 7b5b4f5039004bc2ff5262d7d4541fc2bd710876..f4a44e6b7497391601021bcf0211590b91446bfe 100644 (file)
--- a/device/lib/pic/libsdcc/fsdiv.c
+++ b/device/lib/pic/libsdcc/fsdiv.c
@@ -15,7 +15,7 @@
 */
 
 /*
-** $Id: fsdiv.c 3513 2004-10-01 14:49:51Z vrokas $
+** $Id$
 */
 
 /* (c)2000/2001: hacked a little by johan.knol@iduna.nl for sdcc */
@@ -51,8 +51,10 @@ float __fsdiv (float a1, float a2) _FS_REENTRANT
 
   /* divide by zero??? */
   if (!fl2.l)
-    /* return NaN or -NaN */
-    return (-1.0);
+    {/* return NaN or -NaN */
+      fl2.l = 0x7FC00000;
+      return (fl2.f);
+    }
 
   /* numerator zero??? */
   if (!fl1.l)
@@ -93,7 +95,12 @@ float __fsdiv (float a1, float a2) _FS_REENTRANT
   result &= ~HIDDEN;
 
   /* pack up and go home */
-  fl1.l = PACK (sign ? 1ul<<31 : 0, (unsigned long) exp, result);
+  if (exp >= 0x100)
+    fl1.l = (sign ? SIGNBIT : 0) | 0x7F800000;
+  else if (exp < 0)
+    fl1.l = 0;
+  else
+    fl1.l = PACK (sign ? SIGNBIT : 0 , exp, result);
   return (fl1.f);
 }