Blame sysdeps/m68k/m680x0/fpu/s_scalbn.c

Packit Service 82fcde
/* Copyright (C) 1996-2018 Free Software Foundation, Inc.
Packit Service 82fcde
   This file is part of the GNU C Library.
Packit Service 82fcde
Packit Service 82fcde
   The GNU C Library is free software; you can redistribute it and/or
Packit Service 82fcde
   modify it under the terms of the GNU Lesser General Public
Packit Service 82fcde
   License as published by the Free Software Foundation; either
Packit Service 82fcde
   version 2.1 of the License, or (at your option) any later version.
Packit Service 82fcde
Packit Service 82fcde
   The GNU C Library is distributed in the hope that it will be useful,
Packit Service 82fcde
   but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 82fcde
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit Service 82fcde
   Lesser General Public License for more details.
Packit Service 82fcde
Packit Service 82fcde
   You should have received a copy of the GNU Lesser General Public
Packit Service 82fcde
   License along with the GNU C Library.  If not, see
Packit Service 82fcde
   <http://www.gnu.org/licenses/>.  */
Packit Service 82fcde
Packit Service 82fcde
#define scalbln __no_scalbln_decl
Packit Service 82fcde
#define scalblnf __no_scalblnf_decl
Packit Service 82fcde
#define scalblnl __no_scalblnl_decl
Packit Service 82fcde
#define __scalbln __no__scalbln_decl
Packit Service 82fcde
#define __scalblnf __no__scalblnf_decl
Packit Service 82fcde
#define __scalblnl __no__scalblnl_decl
Packit Service 82fcde
#include <math.h>
Packit Service 82fcde
#undef scalbln
Packit Service 82fcde
#undef scalblnf
Packit Service 82fcde
#undef scalblnl
Packit Service 82fcde
#undef __scalbln
Packit Service 82fcde
#undef __scalblnf
Packit Service 82fcde
#undef __scalblnl
Packit Service 82fcde
Packit Service 82fcde
#ifndef suffix
Packit Service 82fcde
#define suffix /*empty*/
Packit Service 82fcde
#endif
Packit Service 82fcde
#ifndef float_type
Packit Service 82fcde
#define float_type double
Packit Service 82fcde
#endif
Packit Service 82fcde
Packit Service 82fcde
#define __CONCATX(a,b) __CONCAT(a,b)
Packit Service 82fcde
Packit Service 82fcde
float_type
Packit Service 82fcde
__CONCATX(__scalbn,suffix) (float_type x, int exp)
Packit Service 82fcde
{
Packit Service 82fcde
  return __m81_u(__CONCATX(__scalbn,suffix))(x, exp);
Packit Service 82fcde
}
Packit Service 82fcde
strong_alias (__CONCATX(__scalbn,suffix), __CONCATX(__scalbln,suffix))
Packit Service 82fcde
Packit Service 82fcde
#include <shlib-compat.h>
Packit Service 82fcde
#if SHLIB_COMPAT (libc, GLIBC_2_1, GLIBC_2_20)
Packit Service 82fcde
compat_symbol (libc, __CONCATX(__scalbn,suffix), __CONCATX(scalbln,suffix),
Packit Service 82fcde
	       GLIBC_2_1);
Packit Service 82fcde
#endif