1/* Copyright (C) 2007, 2009 2 Free Software Foundation, Inc. 3 4This file is part of GCC. 5 6GCC is free software; you can redistribute it and/or modify it under 7the terms of the GNU General Public License as published by the Free 8Software Foundation; either version 3, or (at your option) any later 9version. 10 11GCC is distributed in the hope that it will be useful, but WITHOUT ANY 12WARRANTY; without even the implied warranty of MERCHANTABILITY or 13FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 14for more details. 15 16Under Section 7 of GPL version 3, you are granted additional 17permissions described in the GCC Runtime Library Exception, version 183.1, as published by the Free Software Foundation. 19 20You should have received a copy of the GNU General Public License and 21a copy of the GCC Runtime Library Exception along with this program; 22see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 23<http://www.gnu.org/licenses/>. */ 24 25#define decimal128FromString __dpd128FromString 26#define decimal128ToString __dpd128ToString 27#define decimal128ToEngString __dpd128ToEngString 28#define decimal128FromNumber __dpd128FromNumber 29#define decimal128ToNumber __dpd128ToNumber 30 31#include "dpd/decimal128.c" 32 33#undef decimal128FromString 34#undef decimal128ToString 35#undef decimal128ToEngString 36#undef decimal128FromNumber 37#undef decimal128ToNumber 38 39#include "bid-dpd.h" 40 41#ifdef IN_LIBGCC2 42#define decimal128FromString __decimal128FromString 43#define decimal128ToString __decimal128ToString 44#define decimal128ToEngString __decimal128ToEngString 45#define decimal128FromNumber __decimal128FromNumber 46#define decimal128ToNumber __decimal128ToNumber 47#endif 48 49decimal128 *decimal128FromString (decimal128 *, const char *, decContext *); 50char *decimal128ToString (const decimal128 *, char *); 51char *decimal128ToEngString (const decimal128 *, char *); 52decimal128 *decimal128FromNumber (decimal128 *, const decNumber *, decContext *); 53decNumber *decimal128ToNumber (const decimal128 *, decNumber *); 54 55void __host_to_ieee_128 (_Decimal128 in, decimal128 *out); 56void __ieee_to_host_128 (decimal128 in, _Decimal128 *out); 57 58decimal128 * 59decimal128FromNumber (decimal128 *d128, const decNumber *dn, 60 decContext *set) 61{ 62 /* decimal128 and _Decimal128 are different types. */ 63 union 64 { 65 _Decimal128 _Dec; 66 decimal128 dec; 67 } u; 68 69 __dpd128FromNumber (d128, dn, set); 70 71 /* __dpd128FromNumber returns in big endian. But _dpd_to_bid128 takes 72 host endian. */ 73 __ieee_to_host_128 (*d128, &u._Dec); 74 75 /* Convert DPD to BID. */ 76 _dpd_to_bid128 (&u._Dec, &u._Dec); 77 78 /* dfp.c is in bid endian. */ 79 __host_to_ieee_128 (u._Dec, &u.dec); 80 81 /* d128 is returned as a pointer to _Decimal128 here. */ 82 *d128 = u.dec; 83 84 return d128; 85} 86 87decNumber * 88decimal128ToNumber (const decimal128 *bid128, decNumber *dn) 89{ 90 /* decimal128 and _Decimal128 are different types. */ 91 union 92 { 93 _Decimal128 _Dec; 94 decimal128 dec; 95 } u; 96 97 /* bid128 is a pointer to _Decimal128 in bid endian. But _bid_to_dpd128 98 takes host endian. */ 99 __ieee_to_host_128 (*bid128, &u._Dec); 100 101 /* Convert BID to DPD. */ 102 _bid_to_dpd128 (&u._Dec, &u._Dec); 103 104 /* __dpd128ToNumber is in bid endian. */ 105 __host_to_ieee_128 (u._Dec, &u.dec); 106 107 return __dpd128ToNumber (&u.dec, dn); 108} 109 110char * 111decimal128ToString (const decimal128 *d128, char *string) 112{ 113 decNumber dn; /* work */ 114 decimal128ToNumber (d128, &dn); 115 decNumberToString (&dn, string); 116 return string; 117} 118 119char * 120decimal128ToEngString (const decimal128 *d128, char *string) 121{ 122 decNumber dn; /* work */ 123 decimal128ToNumber (d128, &dn); 124 decNumberToEngString (&dn, string); 125 return string; 126} 127 128decimal128 * 129decimal128FromString (decimal128 *result, const char *string, 130 decContext *set) 131{ 132 decContext dc; /* work */ 133 decNumber dn; /* .. */ 134 135 decContextDefault (&dc, DEC_INIT_DECIMAL128); /* no traps, please */ 136 dc.round = set->round; /* use supplied rounding */ 137 138 decNumberFromString (&dn, string, &dc); /* will round if needed */ 139 decimal128FromNumber (result, &dn, &dc); 140 if (dc.status != 0) 141 { /* something happened */ 142 decContextSetStatus (set, dc.status); /* .. pass it on */ 143 } 144 return result; 145} 146