(root)/
gcc-13.2.0/
libgcc/
config/
msp430/
lib2mul.c
       1  /* libgcc routines for MSP430
       2     Copyright (C) 2005-2023 Free Software Foundation, Inc.
       3     Contributed by Red Hat.
       4  
       5     This file is part of GCC.
       6  
       7     GCC is free software; you can redistribute it and/or modify it
       8     under the terms of the GNU General Public License as published
       9     by the Free Software Foundation; either version 3, or (at your
      10     option) any later version.
      11  
      12     GCC is distributed in the hope that it will be useful, but WITHOUT
      13     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
      14     or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
      15     License for more details.
      16  
      17     Under Section 7 of GPL version 3, you are granted additional
      18     permissions described in the GCC Runtime Library Exception, version
      19     3.1, as published by the Free Software Foundation.
      20  
      21     You should have received a copy of the GNU General Public License and
      22     a copy of the GCC Runtime Library Exception along with this program;
      23     see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
      24     <http://www.gnu.org/licenses/>.  */
      25  
      26  typedef unsigned int  uint32_type   __attribute__ ((mode (SI)));
      27  typedef unsigned int  uint16_type   __attribute__ ((mode (HI)));
      28  typedef unsigned int  uint08_type   __attribute__ ((mode (QI)));
      29  
      30  #define C3B(a,b,c) a##b##c
      31  #define C3(a,b,c) C3B(a,b,c)
      32  
      33  #if defined (MUL_NONE) || defined (MUL_16)
      34  /* __muldi3 must be excluded from libgcc.a to prevent multiple-definition
      35     errors for the hwmult configurations that have their own definition.
      36     However, for MUL_NONE and MUL_16, the software version is still required, so
      37     the necessary preprocessed output from libgcc2.c to compile that
      38     software version of __muldi3 is below.  */
      39  typedef unsigned int USItype __attribute__ ((mode (SI)));
      40  typedef int DItype __attribute__ ((mode (DI)));
      41  typedef int SItype __attribute__ ((mode (SI)));
      42  struct DWstruct {SItype low, high;};
      43  
      44  typedef union
      45  {
      46    struct DWstruct s;
      47    DItype ll;
      48  } DWunion;
      49  
      50  DItype __muldi3 (DItype u, DItype v);
      51  
      52  DItype
      53  __muldi3 (DItype u, DItype v)
      54  {
      55    const DWunion uu = {.ll = u};
      56    const DWunion vv = {.ll = v};
      57    /* The next block of code is expanded from the following line:
      58       DWunion w = {.ll = __umulsidi3 (uu.s.low, vv.s.low)};  */
      59    DWunion w;
      60    USItype __x0, __x1, __x2, __x3;
      61    USItype __ul, __vl, __uh, __vh;
      62    __ul = ((USItype) (uu.s.low) & (((USItype) 1 << ((4 * 8) / 2)) - 1));
      63    __uh = ((USItype) (uu.s.low) >> ((4 * 8) / 2));
      64    __vl = ((USItype) (vv.s.low) & (((USItype) 1 << ((4 * 8) / 2)) - 1));
      65    __vh = ((USItype) (vv.s.low) >> ((4 * 8) / 2));
      66    __x0 = (USItype) __ul * __vl;
      67    __x1 = (USItype) __ul * __vh;
      68    __x2 = (USItype) __uh * __vl;
      69    __x3 = (USItype) __uh * __vh;
      70    __x1 += ((USItype) (__x0) >> ((4 * 8) / 2));
      71    __x1 += __x2;
      72    if (__x1 < __x2)
      73      __x3 += ((USItype) 1 << ((4 * 8) / 2));
      74    (w.s.high) = __x3 + ((USItype) (__x1) >> ((4 * 8) / 2));
      75    (w.s.low) = ((USItype) (__x1) & (((USItype) 1 << ((4 * 8) / 2)) - 1))
      76      * ((USItype) 1 << ((4 * 8) / 2))
      77      + ((USItype) (__x0) & (((USItype) 1 << ((4 * 8) / 2)) - 1));
      78  
      79    w.s.high += ((USItype) uu.s.low * (USItype) vv.s.high
      80  	       + (USItype) uu.s.high * (USItype) vv.s.low);
      81    return w.ll;
      82  }
      83  #endif
      84  
      85  #if defined MUL_NONE
      86  
      87  /* The software multiply library needs __mspabi_mpyll.  */
      88  
      89  #undef UINT_TYPE
      90  #undef BITS_MINUS_1
      91  #undef NAME_MODE
      92  
      93  #define UINT_TYPE	uint32_type
      94  #define BITS_MINUS_1	31
      95  #define NAME_MODE	si
      96  
      97  #include "msp430-mul.h"
      98  
      99  #elif defined MUL_16
     100  
     101  /* The 16-bit multiply library needs a software version of SI->DI widening
     102     multiplication.  */
     103  
     104  signed long long
     105  __mspabi_mpysll (signed long a, signed long b)
     106  {
     107    return (signed long long) a * (signed long long) b;
     108  }
     109  
     110  unsigned long long
     111  __mspabi_mpyull (unsigned long a, unsigned long b)
     112  {
     113    return (unsigned long long) a * (unsigned long long) b;
     114  }
     115  
     116  #else
     117  
     118  #undef UINT_TYPE
     119  #undef BITS_MINUS_1
     120  #undef NAME_MODE
     121  
     122  #define UINT_TYPE	uint08_type
     123  #define BITS_MINUS_1	7
     124  #define NAME_MODE	qi
     125  
     126  #include "msp430-mul.h"
     127  
     128  #endif /* MUL_NONE */