blob: 38c9b3f904a0fec716924eae7b37108a308a8828 (
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
|
/* floorl.c
*
* Provides floorl function for systems that do not provide it
*
* Wireshark - Network traffic analyzer
* By Gerald Combs <gerald@wireshark.org>
* Copyright 1998 Gerald Combs
*
* This program 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 2
* of the License, or (at your option) any later version.
*
* This program 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.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#include "config.h"
#include <math.h>
#include "wsutil/floorl.h"
#ifndef HAVE_FLOORL
long double
floorl(long double x)
{
#ifdef (__GNUC__)
/*
* Handle platforms where GCC has the builtin but the platform's
* headers (including the headers used with GCC!) don't define
* floorl() to use it.
*
* XXX - are there any such platforms?
*/
__builtin_floorl(x);
#else
/* Not perfect, but probably the best workaround available */
return floor((double)x);
#endif
}
#endif /* !HAVE_FLOORL */
|