2N/A * The contents of this file are subject to the terms of the 2N/A * Common Development and Distribution License (the "License"). 2N/A * You may not use this file except in compliance with the License. 2N/A * See the License for the specific language governing permissions 2N/A * and limitations under the License. 2N/A * When distributing Covered Code, include this CDDL HEADER in each 2N/A * If applicable, add the following below this CDDL HEADER, with the 2N/A * fields enclosed by brackets "[]" replaced with your own identifying 2N/A * information: Portions Copyright [yyyy] [name of copyright owner] 2N/A * Copyright 2008 Sun Microsystems, Inc. All rights reserved. 2N/A * Use is subject to license terms. 2N/A/* Copyright (c) 1988 AT&T */ 2N/A/* All Rights Reserved */ 2N/A#
pragma ident "%Z%%M% %I% %E% SMI" 2N/A/* IEEE recommended functions */ 2N/A * finite(x) returns 1 if x > -inf and x < +inf and 0 otherwise 2N/A * unordered(x,y) returns 1 if x is unordered with y, otherwise 2N/A * it returns 0; x is unordered with y if either x or y is NAN 2N/A * fpclass(x) returns the floating point class x belongs to 2N/A if (
exp == 0) {
/* de-normal or zero */ 2N/A /* hi-bit of mantissa set - quiet nan */ 2N/A /* if we reach here we have non-zero normalized number */