25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * CDDL HEADER START
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * The contents of this file are subject to the terms of the
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Common Development and Distribution License (the "License").
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * You may not use this file except in compliance with the License.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * or http://www.opensolaris.org/os/licensing.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * See the License for the specific language governing permissions
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * and limitations under the License.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * When distributing Covered Code, include this CDDL HEADER in each
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * If applicable, add the following below this CDDL HEADER, with the
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * fields enclosed by brackets "[]" replaced with your own identifying
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * information: Portions Copyright [yyyy] [name of copyright owner]
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * CDDL HEADER END
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Use is subject to license terms.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 16(%rsp),%eax / ax <-- sign and bexp of x
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis xorl $0x80000000,%ecx / handle unsupported implicitly
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 12(%rsp),%eax / eax <-- hi_32(sgnfcnd(x))
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis andl $-0x80000000,%eax / eax[31] <-- msb(sgnfcnd(x)),
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 16(%rsp),%eax / ax <-- sign and bexp of x
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis andq $0x7fff,%rax / eax <-- zero_xtnd(not(bexp(x)))
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis xorq $0x7fff,%rax / treat pseudo-denormal as subnormal
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 12(%rsp),%eax / eax <-- hi_32(sgnfcnd(x))
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis testl $0x80000000,%eax / eax[31] = msb(sgnfcnd(x));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jz .may_be_subnorm / jump iff msb(sgnfcnd(x)) = 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis.may_be_subnorm:
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis testl $0x7fff,16(%rsp) / set ZF iff bexp(x) = 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jnz .not_subnorm / jump iff bexp(x) /= 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis orl 8(%rsp),%eax / (eax) = 0 iff sgnfcnd(x) = 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jz .not_subnorm
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis SET_SIZE(issubnormall)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis ENTRY(iszerol)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 16(%rsp),%eax / ax <-- sign and bexp of x
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis andl $0x7fff,%eax / eax <-- zero_xtnd(bexp(x))
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jz .may_be_zero / jump iff bexp(x) = 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis.may_be_zero: / here, (eax) = 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis orl 12(%rsp),%eax / is hi_32(sgnfcnd(x)) = 0?
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jnz .not_zero / jump iff hi_32(sgnfcnd(x)) /= 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis orl 8(%rsp),%eax / is lo_32(sgnfcnd(x)) = 0?
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis jnz .not_zero / jump iff lo_32(sgnfcnd(x)) /= 0
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis SET_SIZE(iszerol)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis ENTRY(signbitl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis movl 16(%rsp),%eax / eax[15] <-- sign_bit(x)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis shrl $15,%eax / eax <-- zero_xtnd(sign_bit(x))
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis SET_SIZE(signbitl)