/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
.file "_xtoull.s"
#include <SYS.h>
.set cw,0
.set cw_old,2
.text
.align 16
two_to_63: .4byte 0x5f000000
ENTRY(__xtoull) /* 387-stack to unsigned long long */
subq $16,%rsp
fstcw cw_old(%rsp)
movw cw_old(%rsp),%ax
movw %ax,%cx
andw $0x0c00,%cx /* save RC */
orw $0x0c00,%ax
movw %ax,cw(%rsp)
fldcw cw(%rsp)
flds two_to_63(%rip)
fcomip %st(1),%st /* compare 2**63 to x */
jp .donotsub /* jump if x is NaN */
ja .donotsub /* jump if 2**63 > x */
fsubs two_to_63(%rip) /* subtract 2**63 */
.donotsub:
fistpll 8(%rsp)
fwait /* in case fistpll causes exception */
movq 8(%rsp),%rax
jp .donotadd
ja .donotadd /* flags did not change */
movq $0x8000000000000000,%rcx
addq %rcx,%rax /* add back 2**63 */
.donotadd:
fstcw cw(%rsp) /* fetch CW in case masks changed */
movw cw(%rsp),%dx
andw $0xf3ff,%dx
orw %cx,%dx /* restore RC */
movw %dx,cw(%rsp)
fldcw cw(%rsp)
addq $16,%rsp
ret
SET_SIZE(__xtoull)