Home | History | Annotate | Line # | Download | only in soft-fp 
      1  1.1  mrg /* Software floating-point emulation.
      2  1.1  mrg    Convert a 128bit unsigned integer to _Decimal32.
      3  1.1  mrg 
      4  1.1  mrg    Copyright (C) 2023 Free Software Foundation, Inc.
      5  1.1  mrg 
      6  1.1  mrg This file is part of GCC.
      7  1.1  mrg 
      8  1.1  mrg GCC is free software; you can redistribute it and/or modify it under
      9  1.1  mrg the terms of the GNU General Public License as published by the Free
     10  1.1  mrg Software Foundation; either version 3, or (at your option) any later
     11  1.1  mrg version.
     12  1.1  mrg 
     13  1.1  mrg GCC is distributed in the hope that it will be useful, but WITHOUT ANY
     14  1.1  mrg WARRANTY; without even the implied warranty of MERCHANTABILITY or
     15  1.1  mrg FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
     16  1.1  mrg for more details.
     17  1.1  mrg 
     18  1.1  mrg Under Section 7 of GPL version 3, you are granted additional
     19  1.1  mrg permissions described in the GCC Runtime Library Exception, version
     20  1.1  mrg 3.1, as published by the Free Software Foundation.
     21  1.1  mrg 
     22  1.1  mrg You should have received a copy of the GNU General Public License and
     23  1.1  mrg a copy of the GCC Runtime Library Exception along with this program;
     24  1.1  mrg see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
     25  1.1  mrg <http://www.gnu.org/licenses/>.  */
     26  1.1  mrg 
     27  1.1  mrg #include "soft-fp.h"
     28  1.1  mrg #include "bitint.h"
     29  1.1  mrg 
     30  1.1  mrg #if defined(__BITINT_MAXWIDTH__) && defined(__SIZEOF_INT128__)
     31  1.1  mrg extern _Decimal32 __bid_floatbitintsd (const UBILtype *, SItype);
     32  1.1  mrg extern _Decimal32 __bid_floatunstisd (UTItype);
     33  1.1  mrg 
     34  1.1  mrg _Decimal32
     35  1.1  mrg __bid_floatunstisd (UTItype i)
     36  1.1  mrg {
     37  1.1  mrg   UBILtype ib[128 / BIL_TYPE_SIZE];
     38  1.1  mrg #if BIL_TYPE_SIZE == 128
     39  1.1  mrg   ib[0] = i;
     40  1.1  mrg #elif BIL_TYPE_SIZE == 64
     41  1.1  mrg   ib[BITINT_END (0, 1)] = i >> 64;
     42  1.1  mrg   ib[BITINT_END (1, 0)] = i;
     43  1.1  mrg #elif BIL_TYPE_SIZE == 32
     44  1.1  mrg   ib[BITINT_END (0, 3)] = i >> 96;
     45  1.1  mrg   ib[BITINT_END (1, 2)] = i >> 64;
     46  1.1  mrg   ib[BITINT_END (2, 1)] = i >> 32;
     47  1.1  mrg   ib[BITINT_END (3, 0)] = i;
     48  1.1  mrg #else
     49  1.1  mrg #error Unsupported UBILtype
     50  1.1  mrg #endif
     51  1.1  mrg   return __bid_floatbitintsd (ib, 128);
     52  1.1  mrg }
     53  1.1  mrg #endif
     54