| 6515 |
serge |
1 |
/* Copyright (C) 2007-2015 Free Software Foundation, Inc. |
|
|
2 |
|
|
|
3 |
This file is part of GCC. |
|
|
4 |
|
|
|
5 |
GCC is free software; you can redistribute it and/or modify it under |
|
|
6 |
the terms of the GNU General Public License as published by the Free |
|
|
7 |
Software Foundation; either version 3, or (at your option) any later |
|
|
8 |
version. |
|
|
9 |
|
|
|
10 |
GCC is distributed in the hope that it will be useful, but WITHOUT ANY |
|
|
11 |
WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
|
12 |
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
|
13 |
for more details. |
|
|
14 |
|
|
|
15 |
Under Section 7 of GPL version 3, you are granted additional |
|
|
16 |
permissions described in the GCC Runtime Library Exception, version |
|
|
17 |
3.1, as published by the Free Software Foundation. |
|
|
18 |
|
|
|
19 |
You should have received a copy of the GNU General Public License and |
|
|
20 |
a copy of the GCC Runtime Library Exception along with this program; |
|
|
21 |
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see |
|
|
22 |
. */ |
|
|
23 |
|
|
|
24 |
#include "bid_conf.h" |
|
|
25 |
#include "bid_functions.h" |
|
|
26 |
#include "bid_gcc_intrinsics.h" |
|
|
27 |
|
|
|
28 |
_Decimal32 |
|
|
29 |
__bid_floatdisd (DItype x) { |
|
|
30 |
union decimal32 res; |
|
|
31 |
UINT64 res64; |
|
|
32 |
|
|
|
33 |
res64 = __bid64_from_int64 (x); |
|
|
34 |
res.i = __bid64_to_bid32 (res64); |
|
|
35 |
return (res.d); |
|
|
36 |
} |