Mercurial > gnulib
annotate lib/hypot.c @ 17363:5a51fb7777a9
sys_select, sys_time: port 2013-01-30 Solaris 2.6 fix to Cygwin
Problem reported by Marco Atzeri in
<http://lists.gnu.org/archive/html/bug-gnulib/2013-03/msg00000.html>.
* lib/sys_select.in.h [HAVE_SYS_SELECT_H && _CYGWIN_SYS_TIME_H]:
Simply delegate to the system <sys/select.h> in this case too.
Also, pay attention to _GL_SYS_SELECT_H_REDIRECT_FROM_SYS_TIME_H only
if OSF/1, since otherwise Cygwin breaks, and it doesn't seem to
be needed on Solaris either.
* lib/sys_time.in.h [_CYGWIN_SYS_TIME_H]:
Simply delgate to the system <sys/time.h> in this case.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Tue, 19 Mar 2013 09:08:47 -0700 |
parents | e542fd46ad6f |
children | 344018b6e5d7 |
rev | line source |
---|---|
16530
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1 /* Hypotenuse of a right-angled triangle. |
17249
e542fd46ad6f
maint: update all copyright year number ranges
Eric Blake <eblake@redhat.com>
parents:
16530
diff
changeset
|
2 Copyright (C) 2012-2013 Free Software Foundation, Inc. |
16530
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4 This program is free software: you can redistribute it and/or modify |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
5 it under the terms of the GNU General Public License as published by |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
6 the Free Software Foundation; either version 3 of the License, or |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
7 (at your option) any later version. |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
8 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
9 This program is distributed in the hope that it will be useful, |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
12 GNU General Public License for more details. |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
13 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
14 You should have received a copy of the GNU General Public License |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
16 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
17 /* Written by Bruno Haible <bruno@clisp.org>, 2012. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
18 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
19 #include <config.h> |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
20 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
21 /* Specification. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
22 #include <math.h> |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
23 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
24 double |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
25 hypot (double x, double y) |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
26 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
27 if (isfinite (x) && isfinite (y)) |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
28 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
29 /* Determine absolute values. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
30 x = fabs (x); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
31 y = fabs (y); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
32 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
33 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
34 /* Find the bigger and the smaller one. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
35 double a; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
36 double b; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
37 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
38 if (x >= y) |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
39 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
40 a = x; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
41 b = y; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
42 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
43 else |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
44 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
45 a = y; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
46 b = x; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
47 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
48 /* Now 0 <= b <= a. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
49 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
50 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
51 int e; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
52 double an; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
53 double bn; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
54 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
55 /* Write a = an * 2^e, b = bn * 2^e with 0 <= bn <= an < 1. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
56 an = frexp (a, &e); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
57 bn = ldexp (b, - e); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
58 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
59 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
60 double cn; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
61 |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
62 /* Through the normalization, no unneeded overflow or underflow |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
63 will occur here. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
64 cn = sqrt (an * an + bn * bn); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
65 return ldexp (cn, e); |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
66 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
67 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
68 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
69 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
70 else |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
71 { |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
72 if (isinf (x) || isinf (y)) |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
73 /* x or y is infinite. Return +Infinity. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
74 return HUGE_VAL; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
75 else |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
76 /* x or y is NaN. Return NaN. */ |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
77 return x + y; |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
78 } |
3cae6aa4577f
hypot-ieee: Work around test failure on OSF/1 and native Windows.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
79 } |