2N/A * The contents of this file are subject to the terms of the 2N/A * Common Development and Distribution License, Version 1.0 only 2N/A * (the "License"). You may not use this file except in compliance 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 (c) 1994-1997, by Sun Microsystems, Inc. 2N/A * All rights reserved. 2N/A#
pragma ident "%Z%%M% %I% %E% SMI" 2N/A * _Q_feq(x, y) returns nonzero if *x == *y and zero otherwise. 2N/A * If either *x or *y is a signaling NaN, the invalid operation 2N/A * exception is raised. 2N/A /* snan, signal invalid */ 2N/A * _Q_fne(x, y) returns nonzero if *x != *y and zero otherwise. 2N/A * If either *x or *y is a signaling NaN, the invalid operation 2N/A * exception is raised. 2N/A /* snan, signal invalid */ 2N/A return (
1);
/* x != y is TRUE if x or y is NaN */ 2N/A * _Q_flt(x, y) returns nonzero if *x < *y and zero otherwise. If 2N/A * either *x or *y is NaN, the invalid operation exception is raised. 2N/A /* nan, signal invalid */ 2N/A /* ignore sign of zero */ 2N/A if ((
xm ^
ym) &
0x80000000)
/* x and y have opposite signs */ 2N/A return ((
ym &
0x80000000) == 0);
2N/A * _Q_fle(x, y) returns nonzero if *x <= *y and zero otherwise. If 2N/A * either *x or *y is NaN, the invalid operation exception is raised. 2N/A /* nan, signal invalid */ 2N/A /* ignore sign of zero */ 2N/A if ((
xm ^
ym) &
0x80000000)
/* x and y have opposite signs */ 2N/A return ((
ym &
0x80000000) == 0);
2N/A * _Q_fgt(x, y) returns nonzero if *x > *y and zero otherwise. If 2N/A * either *x or *y is NaN, the invalid operation exception is raised. 2N/A /* nan, signal invalid */ 2N/A /* ignore sign of zero */ 2N/A if ((
xm ^
ym) &
0x80000000)
/* x and y have opposite signs */ 2N/A return ((
ym &
0x80000000) != 0);
2N/A * _Q_fge(x, y) returns nonzero if *x >= *y and zero otherwise. If 2N/A * either *x or *y is NaN, the invalid operation exception is raised. 2N/A /* nan, signal invalid */ 2N/A /* ignore sign of zero */ 2N/A if ((
xm ^
ym) &
0x80000000)
/* x and y have opposite signs */ 2N/A return ((
ym &
0x80000000) != 0);