]>
Commit | Line | Data |
---|---|---|
d4697bc9 | 1 | /* Copyright (C) 1996-2014 Free Software Foundation, Inc. |
a6d9783f MS |
2 | |
3 | This file is part of the GNU C Library. | |
4 | ||
5 | The GNU C Library is free software; you can redistribute it and/or | |
6 | modify it under the terms of the GNU Lesser General Public | |
7 | License as published by the Free Software Foundation; either | |
8 | version 2.1 of the License, or (at your option) any later version. | |
9 | ||
10 | The GNU C Library is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 | Lesser General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU Lesser General Public | |
16 | License along with the GNU C Library; if not, see | |
17 | <http://www.gnu.org/licenses/>. */ | |
18 | ||
19 | #include <math.h> | |
20 | ||
21 | #ifndef FUNC | |
5c5bd24e | 22 | # define FUNC lround |
a6d9783f MS |
23 | #endif |
24 | ||
25 | #ifndef ITYPE | |
5c5bd24e MS |
26 | # define ITYPE double |
27 | # define IREGS "d" | |
a6d9783f | 28 | #else |
5c5bd24e MS |
29 | # ifndef IREGS |
30 | # error IREGS not defined | |
31 | # endif | |
a6d9783f MS |
32 | #endif |
33 | ||
34 | #ifndef OTYPE | |
5c5bd24e | 35 | # define OTYPE long int |
a6d9783f MS |
36 | #endif |
37 | ||
38 | #define OREGS "x" | |
39 | ||
40 | #define __CONCATX(a,b) __CONCAT(a,b) | |
41 | ||
42 | OTYPE | |
5e543752 | 43 | __CONCATX(__,FUNC) (ITYPE x) |
a6d9783f MS |
44 | { |
45 | OTYPE result; | |
46 | asm ( "fcvtas" "\t%" OREGS "0, %" IREGS "1" | |
47 | : "=r" (result) : "w" (x) ); | |
48 | return result; | |
49 | } | |
50 | ||
3bae7c5d | 51 | weak_alias (__CONCATX(__,FUNC), FUNC) |