libgcc/config/msp430/lib2mul.c

   1 /* libgcc routines for MSP430
   2    Copyright (C) 2005-2022 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 */