1/* Copyright (C) 2007, 2009  Free Software Foundation, Inc.
2
3This file is part of GCC.
4
5GCC is free software; you can redistribute it and/or modify it under
6the terms of the GNU General Public License as published by the Free
7Software Foundation; either version 3, or (at your option) any later
8version.
9
10GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11WARRANTY; without even the implied warranty of MERCHANTABILITY or
12FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
13for more details.
14
15Under Section 7 of GPL version 3, you are granted additional
16permissions described in the GCC Runtime Library Exception, version
173.1, as published by the Free Software Foundation.
18
19You should have received a copy of the GNU General Public License and
20a copy of the GCC Runtime Library Exception along with this program;
21see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
22<http://www.gnu.org/licenses/>.  */
23
24#include "bid_conf.h"
25#include "bid_functions.h"
26#include "bid_gcc_intrinsics.h"
27
28UDItype
29__bid_fixunstddi (_Decimal128 x) {
30  UDItype res = 0xbaddbaddbaddbaddull;
31  union decimal128 ux;
32
33  ux.d = x;
34
35  res = __bid128_to_uint64_xint (ux.i);
36
37  if (res == 0x8000000000000000ull) res = 0; // for NaNs too
38  return (res);
39}
40
41
42