libgfortran:

[pf3gnuchains/gcc-fork.git] / libdecnumber / decLibrary.c

diff --git a/libdecnumber/decLibrary.c b/libdecnumber/decLibrary.c
index 1576f28..5a17250 100644 (file)
--- a/libdecnumber/decLibrary.c
+++ b/libdecnumber/decLibrary.c
@@ -1,5 +1,5 @@
 /* Temporary library support for decimal floating point.
 /* Temporary library support for decimal floating point.

-   Copyright (C) 2005 Free Software Foundation, Inc.
+   Copyright (C) 2005, 2006 Free Software Foundation, Inc.

 
    This file is part of GCC.
 
 
    This file is part of GCC.
 


@@ -8,6 +8,15 @@
    the Free Software Foundation; either version 2, or (at your option)
    any later version.
 
    the Free Software Foundation; either version 2, or (at your option)
    any later version.
 

+   In addition to the permissions in the GNU General Public License,
+   the Free Software Foundation gives you unlimited permission to link
+   the compiled version of this file into combinations with other
+   programs, and to distribute those combinations without any
+   restriction coming from the use of this file.  (The General Public
+   License restrictions do apply in other respects; for example, they
+   cover modification of the file, and distribution when not linked
+   into a combine executable.)
+

    GCC is distributed in the hope that it will be useful, but WITHOUT
    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
    GCC is distributed in the hope that it will be useful, but WITHOUT
    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public


@@ -31,8 +40,7 @@ void __host_to_ieee_128 (_Decimal128, decimal128 *);
 extern int isinfd32 (_Decimal32);
 extern int isinfd64 (_Decimal64);
 extern int isinfd128 (_Decimal128);
 extern int isinfd32 (_Decimal32);
 extern int isinfd64 (_Decimal64);
 extern int isinfd128 (_Decimal128);

-extern void __dfp_enable_traps (void);
-extern void __dfp_raise (int exception __attribute__ ((unused)));
+uint32_t __dec_byte_swap (uint32_t);

 
 int
 isinfd32 (_Decimal32 arg)
 
 int
 isinfd32 (_Decimal32 arg)


@@ -67,27 +75,13 @@ isinfd128 (_Decimal128 arg)
   return (decNumberIsInfinite (&dn));
 }
 
   return (decNumberIsInfinite (&dn));
 }
 

-int __dfp_traps;
-
-void
-__dfp_enable_traps (void)
-{
-  __dfp_traps = 1;
-}
-
-void
-__dfp_raise (int exception __attribute__ ((unused)))
-{
-  raise (SIGFPE);
-}
-
-unsigned long
-__dec_byte_swap (unsigned long in)
+uint32_t
+__dec_byte_swap (uint32_t in)

 {
 {

-  unsigned long out;
+  uint32_t out = 0;

   unsigned char *p = (unsigned char *) &out;
   union {
   unsigned char *p = (unsigned char *) &out;
   union {

-    unsigned long i;
+    uint32_t i;

     unsigned char b[4];
   } u;
 
     unsigned char b[4];
   } u;