1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 /* Copyright (c) 1988 AT&T */ 23 /* All Rights Reserved */ 24 25 26 /* 27 * Copyright (c) 1996, by Sun Microsystems, Inc. 28 * All Rights Reserved 29 */ 30 31 #ifndef _NAN_H 32 #define _NAN_H 33 34 #pragma ident "%Z%%M% %I% %E% SMI" 35 36 /* 37 * Handling of Not_a_Number's (only in IEEE floating-point standard) 38 */ 39 40 #include <sys/isa_defs.h> 41 #include <values.h> 42 43 #ifdef __cplusplus 44 extern "C" { 45 #endif 46 47 #if defined(_IEEE_754) 48 /* 49 * Structure order is endian dependent. Only the common variants of 50 * big and little endian are supported. 51 */ 52 53 #if defined(_BIG_ENDIAN) 54 55 typedef union 56 { 57 struct 58 { 59 unsigned sign : 1; 60 unsigned exponent :11; 61 unsigned bits :20; 62 unsigned fraction_low :32; 63 } inf_parts; 64 struct 65 { 66 unsigned sign : 1; 67 unsigned exponent :11; 68 unsigned qnan_bit : 1; 69 unsigned bits :19; 70 unsigned fraction_low :32; 71 } nan_parts; 72 double d; 73 74 } dnan; 75 76 #else /* Must be _LITTLE_ENDIAN */ 77 78 typedef union 79 { 80 struct { 81 unsigned fraction_low :32; 82 unsigned bits :20; 83 unsigned exponent :11; 84 unsigned sign : 1; 85 } inf_parts; 86 struct { 87 unsigned fraction_low :32; 88 unsigned bits :19; 89 unsigned qnan_bit : 1; 90 unsigned exponent :11; 91 unsigned sign : 1; 92 } nan_parts; 93 double d; 94 } dnan; 95 96 #endif /* Endian based selection */ 97 98 /* 99 * IsNANorINF checks that exponent of double == 2047 100 * i.e. that number is a NaN or an infinity 101 */ 102 #define IsNANorINF(X) (((dnan *)&(X))->nan_parts.exponent == 0x7ff) 103 104 /* 105 * IsINF must be used after IsNANorINF has checked the exponent 106 */ 107 #define IsINF(X) (((dnan *)&(X))->inf_parts.bits == 0 && \ 108 ((dnan *)&(X))->inf_parts.fraction_low == 0) 109 110 /* 111 * IsPosNAN and IsNegNAN can be used to check the sign of infinities too 112 */ 113 #define IsPosNAN(X) (((dnan *)&(X))->nan_parts.sign == 0) 114 115 #define IsNegNAN(X) (((dnan *)&(X))->nan_parts.sign == 1) 116 117 /* 118 * GETNaNPC gets the leftmost 32 bits of the fraction part 119 */ 120 #define GETNaNPC(dval) (((dnan *)&(dval))->inf_parts.bits << 12 | \ 121 ((dnan *)&(dval))->nan_parts.fraction_low >> 20) 122 123 #if defined(__STDC__) 124 #define KILLFPE() (void) _kill(_getpid(), 8) 125 #else 126 #define KILLFPE() (void) kill(getpid(), 8) 127 #endif 128 #define NaN(X) (((dnan *)&(X))->nan_parts.exponent == 0x7ff) 129 #define KILLNaN(X) if (NaN(X)) KILLFPE() 130 131 #else /* defined(_IEEE_754) */ 132 /* #error is strictly ansi-C, but works as well as anything for K&R systems. */ 133 #error ISA not supported 134 #endif /* defined(_IEEE_754) */ 135 136 #ifdef __cplusplus 137 } 138 #endif 139 140 #endif /* _NAN_H */ 141