OSDN Git Service

639662edfee943b1649ba3d936065b7454ea0161
[pf3gnuchains/gcc-fork.git] / libdecnumber / bid / host-ieee32.c
1 /* This is a software decimal floating point library.
2    Copyright (C) 2007 Free Software Foundation, Inc.
3
4 This file is part of GCC.
5
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 2, or (at your option) any later
9 version.
10
11 In addition to the permissions in the GNU General Public License, the
12 Free Software Foundation gives you unlimited permission to link the
13 compiled version of this file into combinations with other programs,
14 and to distribute those combinations without any restriction coming
15 from the use of this file.  (The General Public License restrictions
16 do apply in other respects; for example, they cover modification of
17 the file, and distribution when not linked into a combine
18 executable.)
19
20 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
21 WARRANTY; without even the implied warranty of MERCHANTABILITY or
22 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
23 for more details.
24
25 You should have received a copy of the GNU General Public License
26 along with GCC; see the file COPYING.  If not, write to the Free
27 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
28 02110-1301, USA.  */
29
30 /* This implements IEEE 754R decimal floating point arithmetic, but
31    does not provide a mechanism for setting the rounding mode, or for
32    generating or handling exceptions.  Conversions between decimal
33    floating point types and other types depend on C library functions.
34
35    Contributed by Ben Elliston  <bje@au.ibm.com>.  */
36
37 /* The intended way to use this file is to make two copies, add `#define '
38    to one copy, then compile both copies and add them to libgcc.a.  */
39
40 #include <stdio.h>
41 #include <stdlib.h>
42 #include <string.h>
43 #include <limits.h>
44
45 #include "config.h"
46 #include "gstdint.h"
47 #include "bid-dpd.h"
48 #include "decimal32.h"
49
50 uint32_t __dec_byte_swap (uint32_t);
51 void __host_to_ieee_32 (_Decimal32 in, decimal32 *out);
52 void __ieee_to_host_32 (decimal32 in, _Decimal32 *out);
53
54 #ifndef WORDS_BIGENDIAN
55 #define WORDS_BIGENDIAN 0
56 #endif
57
58 uint32_t
59 __dec_byte_swap (uint32_t in)
60 {
61   uint32_t out = 0;
62   unsigned char *p = (unsigned char *) &out;
63   union {
64     uint32_t i;
65     unsigned char b[4];
66   } u;
67
68   u.i = in;
69   p[0] = u.b[3];
70   p[1] = u.b[2];
71   p[2] = u.b[1];
72   p[3] = u.b[0];
73
74   return out;
75 }
76
77 void
78 __host_to_ieee_32 (_Decimal32 in, decimal32 *out)
79 {
80   uint32_t t;
81
82   if (!WORDS_BIGENDIAN)
83     {
84       memcpy (&t, &in, 4);
85       t = __dec_byte_swap (t);
86       memcpy (out, &t, 4);
87     }
88   else
89     memcpy (out, &in, 4);
90 }
91
92 void
93 __ieee_to_host_32 (decimal32 in, _Decimal32 *out)
94 {
95   uint32_t t;
96
97   if (!WORDS_BIGENDIAN)
98     {
99       memcpy (&t, &in, 4);
100       t = __dec_byte_swap (t);
101       memcpy (out, &t, 4);
102     }
103   else
104     memcpy (out, &in, 4);
105 }