1*25c28e83SPiotr Jasiukajtis/* 2*25c28e83SPiotr Jasiukajtis * CDDL HEADER START 3*25c28e83SPiotr Jasiukajtis * 4*25c28e83SPiotr Jasiukajtis * The contents of this file are subject to the terms of the 5*25c28e83SPiotr Jasiukajtis * Common Development and Distribution License (the "License"). 6*25c28e83SPiotr Jasiukajtis * You may not use this file except in compliance with the License. 7*25c28e83SPiotr Jasiukajtis * 8*25c28e83SPiotr Jasiukajtis * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9*25c28e83SPiotr Jasiukajtis * or http://www.opensolaris.org/os/licensing. 10*25c28e83SPiotr Jasiukajtis * See the License for the specific language governing permissions 11*25c28e83SPiotr Jasiukajtis * and limitations under the License. 12*25c28e83SPiotr Jasiukajtis * 13*25c28e83SPiotr Jasiukajtis * When distributing Covered Code, include this CDDL HEADER in each 14*25c28e83SPiotr Jasiukajtis * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15*25c28e83SPiotr Jasiukajtis * If applicable, add the following below this CDDL HEADER, with the 16*25c28e83SPiotr Jasiukajtis * fields enclosed by brackets "[]" replaced with your own identifying 17*25c28e83SPiotr Jasiukajtis * information: Portions Copyright [yyyy] [name of copyright owner] 18*25c28e83SPiotr Jasiukajtis * 19*25c28e83SPiotr Jasiukajtis * CDDL HEADER END 20*25c28e83SPiotr Jasiukajtis */ 21*25c28e83SPiotr Jasiukajtis/* 22*25c28e83SPiotr Jasiukajtis * Copyright 2011 Nexenta Systems, Inc. All rights reserved. 23*25c28e83SPiotr Jasiukajtis */ 24*25c28e83SPiotr Jasiukajtis/* 25*25c28e83SPiotr Jasiukajtis * Copyright 2006 Sun Microsystems, Inc. All rights reserved. 26*25c28e83SPiotr Jasiukajtis * Use is subject to license terms. 27*25c28e83SPiotr Jasiukajtis */ 28*25c28e83SPiotr Jasiukajtis 29*25c28e83SPiotr Jasiukajtis .file "isnan.s" 30*25c28e83SPiotr Jasiukajtis 31*25c28e83SPiotr Jasiukajtis#include "libm.h" 32*25c28e83SPiotr JasiukajtisLIBM_ANSI_PRAGMA_WEAK(isnan,function) 33*25c28e83SPiotr Jasiukajtis .weak _isnan 34*25c28e83SPiotr Jasiukajtis .type _isnan,@function 35*25c28e83SPiotr Jasiukajtis_isnan = __isnan 36*25c28e83SPiotr Jasiukajtis .weak _isnand 37*25c28e83SPiotr Jasiukajtis .type _isnand,@function 38*25c28e83SPiotr Jasiukajtis_isnand = __isnan 39*25c28e83SPiotr Jasiukajtis .weak isnand 40*25c28e83SPiotr Jasiukajtis .type isnand,@function 41*25c28e83SPiotr Jasiukajtisisnand = __isnan 42*25c28e83SPiotr Jasiukajtis 43*25c28e83SPiotr Jasiukajtis ENTRY(isnan) 44*25c28e83SPiotr Jasiukajtis movl 8(%esp),%eax / eax <-- hi_32(x) 45*25c28e83SPiotr Jasiukajtis andl $0x7fffffff,%eax / eax <-- hi_32(abs(x)) 46*25c28e83SPiotr Jasiukajtis subl $0x7ff00000,%eax / weed out finite values 47*25c28e83SPiotr Jasiukajtis jae .nan_or_inf / no jump if arg. is finite 48*25c28e83SPiotr Jasiukajtis movl $0,%eax / ansi needs (eax) = 0 49*25c28e83SPiotr Jasiukajtis ret 50*25c28e83SPiotr Jasiukajtis.nan_or_inf: 51*25c28e83SPiotr Jasiukajtis ja .got_nan / no jump if arg. may be infinite; 52*25c28e83SPiotr Jasiukajtis / let nan waste time 53*25c28e83SPiotr Jasiukajtis / (eax) = 0 here 54*25c28e83SPiotr Jasiukajtis testl $0xffffffff,4(%esp) / ZF <-- 1 iff lo_frac. = 0 55*25c28e83SPiotr Jasiukajtis / iff arg. is infinite 56*25c28e83SPiotr Jasiukajtis jnz .got_nan / no jump if arg. is infinite; 57*25c28e83SPiotr Jasiukajtis ret 58*25c28e83SPiotr Jasiukajtis.got_nan: 59*25c28e83SPiotr Jasiukajtis movl $1,%eax / %eax was 0, must be made 1 to 60*25c28e83SPiotr Jasiukajtis / indicate TRUE 61*25c28e83SPiotr Jasiukajtis ret 62*25c28e83SPiotr Jasiukajtis .align 4 63*25c28e83SPiotr Jasiukajtis SET_SIZE(isnan) 64