| 1 | /** |
| 2 | * This file has no copyright assigned and is placed in the Public Domain. |
| 3 | * This file is part of the mingw-w64 runtime package. |
| 4 | * No warranty is given; refer to the file DISCLAIMER.PD within this package. |
| 5 | */ |
| 6 | |
| 7 | #include <math.h> |
| 8 | |
| 9 | #include "pi_const.h" |
| 10 | |
| 11 | long double __cdecl sinpil(long double x) |
| 12 | { |
| 13 | x = remainderl(x, 2.0L); |
| 14 | return sinl(x * __pi_type(x)); |
| 15 | } |