12 *
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 "rndintl.s"
30
31 #include "libm.h"
32 LIBM_ANSI_PRAGMA_WEAK(aintl,function)
33 LIBM_ANSI_PRAGMA_WEAK(irintl,function)
34 LIBM_ANSI_PRAGMA_WEAK(anintl,function)
35 LIBM_ANSI_PRAGMA_WEAK(nintl,function)
36 #include "libm_synonyms.h"
37
38 #undef fabs
39
40 ENTRY(aintl)
41 movq %rsp,%rax
42 subq $16,%rsp
43 fstcw -8(%rax)
44 fldt 8(%rax)
45 movw -8(%rax),%cx
46 orw $0x0c00,%cx
47 movw %cx,-4(%rax)
48 fldcw -4(%rax) / set RD = to_zero
49 frndint
50 fstcw -4(%rax)
51 movw -4(%rax),%dx
52 andw $0xf3ff,%dx
53 movw -8(%rax),%cx
54 andw $0x0c00,%cx
55 orw %dx,%cx
56 movw %cx,-8(%rax)
|
12 *
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 "rndintl.s"
30
31 #include "libm.h"
32
33 #undef fabs
34
35 ENTRY(aintl)
36 movq %rsp,%rax
37 subq $16,%rsp
38 fstcw -8(%rax)
39 fldt 8(%rax)
40 movw -8(%rax),%cx
41 orw $0x0c00,%cx
42 movw %cx,-4(%rax)
43 fldcw -4(%rax) / set RD = to_zero
44 frndint
45 fstcw -4(%rax)
46 movw -4(%rax),%dx
47 andw $0xf3ff,%dx
48 movw -8(%rax),%cx
49 andw $0x0c00,%cx
50 orw %dx,%cx
51 movw %cx,-8(%rax)
|