summaryrefslogtreecommitdiff
path: root/libgcc/config/msp430/lib2mul.c
blob: ca022b9de4fd77fe83a6e3d6344eda0ff664602b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
/* libgcc routines for MSP430
   Copyright (C) 2005-2020 Free Software Foundation, Inc.
   Contributed by Red Hat.

   This file is part of GCC.

   GCC is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published
   by the Free Software Foundation; either version 3, or (at your
   option) any later version.

   GCC is distributed in the hope that it will be useful, but WITHOUT
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
   License for more details.

   Under Section 7 of GPL version 3, you are granted additional
   permissions described in the GCC Runtime Library Exception, version
   3.1, as published by the Free Software Foundation.

   You should have received a copy of the GNU General Public License and
   a copy of the GCC Runtime Library Exception along with this program;
   see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
   <http://www.gnu.org/licenses/>.  */

typedef unsigned int  uint32_type   __attribute__ ((mode (SI)));
typedef unsigned int  uint16_type   __attribute__ ((mode (HI)));
typedef unsigned int  uint08_type   __attribute__ ((mode (QI)));

#define C3B(a,b,c) a##b##c
#define C3(a,b,c) C3B(a,b,c)

#if defined (MUL_NONE) || defined (MUL_16)
/* __muldi3 must be excluded from libgcc.a to prevent multiple-definition
   errors for the hwmult configurations that have their own definition.
   However, for MUL_NONE and MUL_16, the software version is still required, so
   the necessary preprocessed output from libgcc2.c to compile that
   software version of __muldi3 is below.  */
typedef unsigned int USItype __attribute__ ((mode (SI)));
typedef int DItype __attribute__ ((mode (DI)));
typedef int SItype __attribute__ ((mode (SI)));
struct DWstruct {SItype low, high;};

typedef union
{
  struct DWstruct s;
  DItype ll;
} DWunion;

DItype __muldi3 (DItype u, DItype v);

DItype
__muldi3 (DItype u, DItype v)
{
  const DWunion uu = {.ll = u};
  const DWunion vv = {.ll = v};
  /* The next block of code is expanded from the following line:
     DWunion w = {.ll = __umulsidi3 (uu.s.low, vv.s.low)};  */
  DWunion w;
  USItype __x0, __x1, __x2, __x3;
  USItype __ul, __vl, __uh, __vh;
  __ul = ((USItype) (uu.s.low) & (((USItype) 1 << ((4 * 8) / 2)) - 1));
  __uh = ((USItype) (uu.s.low) >> ((4 * 8) / 2));
  __vl = ((USItype) (vv.s.low) & (((USItype) 1 << ((4 * 8) / 2)) - 1));
  __vh = ((USItype) (vv.s.low) >> ((4 * 8) / 2));
  __x0 = (USItype) __ul * __vl;
  __x1 = (USItype) __ul * __vh;
  __x2 = (USItype) __uh * __vl;
  __x3 = (USItype) __uh * __vh;
  __x1 += ((USItype) (__x0) >> ((4 * 8) / 2));
  __x1 += __x2;
  if (__x1 < __x2)
    __x3 += ((USItype) 1 << ((4 * 8) / 2));
  (w.s.high) = __x3 + ((USItype) (__x1) >> ((4 * 8) / 2));
  (w.s.low) = ((USItype) (__x1) & (((USItype) 1 << ((4 * 8) / 2)) - 1))
    * ((USItype) 1 << ((4 * 8) / 2))
    + ((USItype) (__x0) & (((USItype) 1 << ((4 * 8) / 2)) - 1));

  w.s.high += ((USItype) uu.s.low * (USItype) vv.s.high
	       + (USItype) uu.s.high * (USItype) vv.s.low);
  return w.ll;
}
#endif

#if defined MUL_NONE

/* The software multiply library needs __mspabi_mpyll.  */

#undef UINT_TYPE
#undef BITS_MINUS_1
#undef NAME_MODE

#define UINT_TYPE	uint32_type
#define BITS_MINUS_1	31
#define NAME_MODE	si

#include "msp430-mul.h"

#elif defined MUL_16

/* The 16-bit multiply library needs a software version of SI->DI widening
   multiplication.  */

signed long long
__mspabi_mpysll (signed long a, signed long b)
{
  return (signed long long) a * (signed long long) b;
}

unsigned long long
__mspabi_mpyull (unsigned long a, unsigned long b)
{
  return (unsigned long long) a * (unsigned long long) b;
}

#else

#undef UINT_TYPE
#undef BITS_MINUS_1
#undef NAME_MODE

#define UINT_TYPE	uint08_type
#define BITS_MINUS_1	7
#define NAME_MODE	qi

#include "msp430-mul.h"

#endif /* MUL_NONE */