[thirdparty/gcc.git] / libgcc / config / avr / lib2funcs.c

/* Copyright (C) 2013-2020 Free Software Foundation, Inc.

   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/>.  */


/* This file supplies implementations for some AVR-specific builtin
   functions so that code like the following works as expected:

   int (*f (void))(_Fract)
   {
       return __builtin_avr_countlsr;
   }

   In this specific case, the generated code is:

   f:
       ldi r24,lo8(gs(__countlsHI))
       ldi r25,hi8(gs(__countlsHI))
       ret
*/

/* Map fixed-point suffix to the corresponding fixed-point type.  */

typedef short _Fract fx_hr_t;
typedef _Fract fx_r_t;
typedef long _Fract fx_lr_t;
typedef long long _Fract fx_llr_t;

typedef unsigned short _Fract fx_uhr_t;
typedef unsigned _Fract fx_ur_t;
typedef unsigned long _Fract fx_ulr_t;
typedef unsigned long long _Fract fx_ullr_t;

typedef short _Accum fx_hk_t;
typedef _Accum fx_k_t;
typedef long _Accum fx_lk_t;
typedef long long _Accum fx_llk_t;

typedef unsigned short _Accum fx_uhk_t;
typedef unsigned _Accum fx_uk_t;
typedef unsigned long _Accum fx_ulk_t;
typedef unsigned long long _Accum fx_ullk_t;

/* Map fixed-point suffix to the corresponding natural integer type.  */

typedef char int_hr_t;
typedef int int_r_t;
typedef long int_lr_t;
typedef long long int_llr_t;

typedef unsigned char int_uhr_t;
typedef unsigned int int_ur_t;
typedef unsigned long int_ulr_t;
typedef unsigned long long int_ullr_t;

typedef int int_hk_t;
typedef long int_k_t;
typedef long long int_lk_t;
typedef long long int_llk_t;

typedef unsigned int int_uhk_t;
typedef unsigned long int_uk_t;
typedef unsigned long long int_ulk_t;
typedef unsigned long long int_ullk_t;

/* Map mode to the corresponding integer type.  */

typedef char int_qi_t;
typedef int int_hi_t;
typedef long int_si_t;
typedef long long int_di_t;

typedef unsigned char uint_qi_t;
typedef unsigned int uint_hi_t;
typedef unsigned long uint_si_t;
typedef unsigned long long uint_di_t;


\f
/************************************************************************/

/* Supply implementations / symbols for __builtin_roundFX ASM_NAME.  */

#ifdef L_round

#define ROUND1(FX)                              \
  ROUND2 (FX)

#define ROUND2(FX)                                                      \
  extern fx_## FX ##_t __round## FX (fx_## FX ##_t x, int rpoint);      \
                                                                        \
  fx_## FX ##_t                                                         \
  __round## FX (fx_## FX ##_t x, int rpoint)                            \
  {                                                                     \
    return __builtin_avr_round ##FX (x, rpoint);                        \
  }

ROUND1(L_LABEL)

#endif /* L_round */


\f
/*********************************************************************/

/* Implement some count-leading-redundant-sign-bits to be used with
   coundlsFX implementation.  */

#ifdef L__clrsbqi
extern int __clrsbqi2 (char x);

int
__clrsbqi2 (char x)
{
  int ret;

  if (x < 0)
    x = ~x;

  if (x == 0)
    return 8 * sizeof (x) -1;

  ret = __builtin_clz (x << 8);
  return ret - 1;
}
#endif /* L__clrsbqi */


#ifdef L__clrsbdi
extern int __clrsbdi2 (long long x);

int
__clrsbdi2 (long long x)
{
  int ret;

  if (x < 0LL)
    x = ~x;

  if (x == 0LL)
    return 8 * sizeof (x) -1;

  ret = __builtin_clzll ((unsigned long long) x);
  return ret - 1;
}
#endif /* L__clrsbdi */


\f
/*********************************************************************/

/* Supply implementations / symbols for __builtin_avr_countlsFX.  */

/* Signed */

#ifdef L_countls

#define COUNTLS1(MM)                            \
  COUNTLS2 (MM)

#define COUNTLS2(MM)                                                    \
  extern int __countls## MM ##2 (int_## MM ##_t);                       \
  extern int __clrsb## MM ##2 (int_## MM ##_t);                         \
                                                                        \
  int                                                                   \
  __countls## MM ##2 (int_## MM ##_t x)                                 \
  {                                                                     \
    if (x == 0)                                                         \
      return __INT8_MAX__;                                              \
                                                                        \
    return __clrsb## MM ##2 (x);                                        \
  }

COUNTLS1(L_LABEL)

#endif /* L_countls */

/* Unsigned */

#ifdef L_countlsu

#define clz_qi2 __builtin_clz /* unused, avoid warning */
#define clz_hi2 __builtin_clz
#define clz_si2 __builtin_clzl
#define clz_di2 __builtin_clzll

#define COUNTLS1(MM)                            \
  COUNTLS2 (MM)

#define COUNTLS2(MM)                                                    \
  extern int __countlsu## MM ##2 (uint_## MM ##_t);                     \
                                                                        \
  int                                                                   \
  __countlsu## MM ##2 (uint_## MM ##_t x)                               \
  {                                                                     \
    if (x == 0)                                                         \
      return __INT8_MAX__;                                              \
                                                                        \
    if (sizeof (x) == 1)                                                \
      return clz_hi2 (x << 8);                                          \
    else                                                                \
      return clz_## MM ##2 (x);                                         \
  }

COUNTLS1(L_LABEL)

#endif /* L_countlsu */
Commit	Line	Data
8d9254fc	1	/* Copyright (C) 2013-2020 Free Software Foundation, Inc.
85d768f3 GJL	2
	3	This file is part of GCC.
	4
	5	GCC is free software; you can redistribute it and/or modify it under
	6	the terms of the GNU General Public License as published by the Free
	7	Software Foundation; either version 3, or (at your option) any later
	8	version.
	9
	10	GCC is distributed in the hope that it will be useful, but WITHOUT ANY
	11	WARRANTY; without even the implied warranty of MERCHANTABILITY or
	12	FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
	13	for more details.
	14
	15	Under Section 7 of GPL version 3, you are granted additional
	16	permissions described in the GCC Runtime Library Exception, version
	17	3.1, as published by the Free Software Foundation.
	18
	19	You should have received a copy of the GNU General Public License and
	20	a copy of the GCC Runtime Library Exception along with this program;
	21	see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
	22	<http://www.gnu.org/licenses/>. */
	23
	24
	25	/* This file supplies implementations for some AVR-specific builtin
	26	functions so that code like the following works as expected:
	27
	28	int (*f (void))(_Fract)
	29	{
	30	return __builtin_avr_countlsr;
	31	}
	32
	33	In this specific case, the generated code is:
	34
	35	f:
	36	ldi r24,lo8(gs(__countlsHI))
	37	ldi r25,hi8(gs(__countlsHI))
	38	ret
	39	*/
	40
	41	/* Map fixed-point suffix to the corresponding fixed-point type. */
	42
	43	typedef short _Fract fx_hr_t;
	44	typedef _Fract fx_r_t;
	45	typedef long _Fract fx_lr_t;
	46	typedef long long _Fract fx_llr_t;
	47
	48	typedef unsigned short _Fract fx_uhr_t;
	49	typedef unsigned _Fract fx_ur_t;
	50	typedef unsigned long _Fract fx_ulr_t;
	51	typedef unsigned long long _Fract fx_ullr_t;
	52
	53	typedef short _Accum fx_hk_t;
	54	typedef _Accum fx_k_t;
	55	typedef long _Accum fx_lk_t;
	56	typedef long long _Accum fx_llk_t;
	57
	58	typedef unsigned short _Accum fx_uhk_t;
	59	typedef unsigned _Accum fx_uk_t;
	60	typedef unsigned long _Accum fx_ulk_t;
	61	typedef unsigned long long _Accum fx_ullk_t;
	62
	63	/* Map fixed-point suffix to the corresponding natural integer type. */
	64
	65	typedef char int_hr_t;
66	typedef int int_r_t;
67	typedef long int_lr_t;
68	typedef long long int_llr_t;
69
70	typedef unsigned char int_uhr_t;
71	typedef unsigned int int_ur_t;
72	typedef unsigned long int_ulr_t;
73	typedef unsigned long long int_ullr_t;
74
75	typedef int int_hk_t;
76	typedef long int_k_t;
77	typedef long long int_lk_t;
78	typedef long long int_llk_t;
79
80	typedef unsigned int int_uhk_t;
81	typedef unsigned long int_uk_t;
82	typedef unsigned long long int_ulk_t;
83	typedef unsigned long long int_ullk_t;
84
85	/* Map mode to the corresponding integer type. */
86
87	typedef char int_qi_t;
88	typedef int int_hi_t;
89	typedef long int_si_t;
90	typedef long long int_di_t;
91
92	typedef unsigned char uint_qi_t;
93	typedef unsigned int uint_hi_t;
94	typedef unsigned long uint_si_t;
95	typedef unsigned long long uint_di_t;
96
97
98	\f
99	/************************************************************************/
100
101	/* Supply implementations / symbols for __builtin_roundFX ASM_NAME. */
102
103	#ifdef L_round
104
105	#define ROUND1(FX) \
106	ROUND2 (FX)
107
108	#define ROUND2(FX) \
109	extern fx_## FX ##_t __round## FX (fx_## FX ##_t x, int rpoint); \
110	\
111	fx_## FX ##_t \
112	__round## FX (fx_## FX ##_t x, int rpoint) \
113	{ \
114	return __builtin_avr_round ##FX (x, rpoint); \
115	}
116
117	ROUND1(L_LABEL)
118
119	#endif /* L_round */
120
121
122	\f
123	/*********************************************************************/
124
125	/* Implement some count-leading-redundant-sign-bits to be used with
126	coundlsFX implementation. */
127
128	#ifdef L__clrsbqi
129	extern int __clrsbqi2 (char x);
130
131	int
132	__clrsbqi2 (char x)
133	{
134	int ret;
135
136	if (x < 0)
137	x = ~x;
138
139	if (x == 0)
140	return 8 * sizeof (x) -1;
141
142	ret = __builtin_clz (x << 8);
143	return ret - 1;
144	}
145	#endif /* L__clrsbqi */
146
147
148	#ifdef L__clrsbdi
149	extern int __clrsbdi2 (long long x);
150
151	int
152	__clrsbdi2 (long long x)
153	{
154	int ret;
155
156	if (x < 0LL)
157	x = ~x;
158
159	if (x == 0LL)
160	return 8 * sizeof (x) -1;
161
162	ret = __builtin_clzll ((unsigned long long) x);
163	return ret - 1;
164	}
165	#endif /* L__clrsbdi */
166
167
168	\f
169	/*********************************************************************/
170
171	/* Supply implementations / symbols for __builtin_avr_countlsFX. */
172
173	/* Signed */
174
175	#ifdef L_countls
176
177	#define COUNTLS1(MM) \
178	COUNTLS2 (MM)
179
180	#define COUNTLS2(MM) \
181	extern int __countls## MM ##2 (int_## MM ##_t); \
182	extern int __clrsb## MM ##2 (int_## MM ##_t); \
183	\
184	int \
185	__countls## MM ##2 (int_## MM ##_t x) \
186	{ \
187	if (x == 0) \
188	return __INT8_MAX__; \
189	\
190	return __clrsb## MM ##2 (x); \
191	}
192
193	COUNTLS1(L_LABEL)
194
195	#endif /* L_countls */
196
197	/* Unsigned */
198
199	#ifdef L_countlsu
200
201	#define clz_qi2 __builtin_clz /* unused, avoid warning */
202	#define clz_hi2 __builtin_clz
203	#define clz_si2 __builtin_clzl
204	#define clz_di2 __builtin_clzll
205
206	#define COUNTLS1(MM) \
207	COUNTLS2 (MM)
208
209	#define COUNTLS2(MM) \
210	extern int __countlsu## MM ##2 (uint_## MM ##_t); \
211	\
212	int \
213	__countlsu## MM ##2 (uint_## MM ##_t x) \
214	{ \
215	if (x == 0) \
216	return __INT8_MAX__; \
217	\
218	if (sizeof (x) == 1) \
219	return clz_hi2 (x << 8); \
220	else \
221	return clz_## MM ##2 (x); \
222	}
223
224	COUNTLS1(L_LABEL)
225
226	#endif /* L_countlsu */