13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /*
22 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
23 */
24 /*
25 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
26 * Use is subject to license terms.
27 */
28
29 .file "hypotf.s"
30
31 #include "libm.h"
32 LIBM_ANSI_PRAGMA_WEAK(hypotf,function)
33 #include "libm_synonyms.h"
34 #include "libm_protos.h"
35
36 #undef fabs
37
38 ENTRY(hypotf)
39 movl 4(%esp),%eax / eax <-- x
40 andl $0x7fffffff,%eax / eax <-- |x|
41 jz .return_abs_y / if x = +/-0, return |y|
42 subl $0x7f800000,%eax / eax <-- |x| - INF
43 jz .return_abs_x / if x = +/-INF, return |x|
44 movl 8(%esp),%eax / eax <-- y
45 andl $0x7fffffff,%eax / eax <-- |y|
46 jz .return_abs_x / if y = +/-0, return |x|
47 subl $0x7f800000,%eax / eax <-- |y| - INF
48 .return_abs_y:
49 flds 8(%esp) / y
50 jz .take_abs / if y = +/-INF, return |y|
51 fmul %st(0),%st / y*y
52 flds 4(%esp) / x,y*y
53 fmul %st(0),%st / x*x,y*y
|
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /*
22 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
23 */
24 /*
25 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
26 * Use is subject to license terms.
27 */
28
29 .file "hypotf.s"
30
31 #include "libm.h"
32 LIBM_ANSI_PRAGMA_WEAK(hypotf,function)
33 #include "libm_protos.h"
34
35 #undef fabs
36
37 ENTRY(hypotf)
38 movl 4(%esp),%eax / eax <-- x
39 andl $0x7fffffff,%eax / eax <-- |x|
40 jz .return_abs_y / if x = +/-0, return |y|
41 subl $0x7f800000,%eax / eax <-- |x| - INF
42 jz .return_abs_x / if x = +/-INF, return |x|
43 movl 8(%esp),%eax / eax <-- y
44 andl $0x7fffffff,%eax / eax <-- |y|
45 jz .return_abs_x / if y = +/-0, return |x|
46 subl $0x7f800000,%eax / eax <-- |y| - INF
47 .return_abs_y:
48 flds 8(%esp) / y
49 jz .take_abs / if y = +/-INF, return |y|
50 fmul %st(0),%st / y*y
51 flds 4(%esp) / x,y*y
52 fmul %st(0),%st / x*x,y*y
|