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 2003 Sun Microsystems, Inc. All rights reserved. 2N/A * Use is subject to license terms. 2N/A#
pragma ident "%Z%%M% %I% %E% SMI" 2N/A * _Qp_sub(pz, ox, oy) sets *pz = *ox - *oy. 2N/A * _Q_sub(ox, oy) returns *ox - *oy. 2N/A#
endif /* __sparcv9 */ 2N/A /* sort so |x| >= |y| */ 2N/A /* handle nan and inf cases */ 2N/A /* x is nan or inf */ 2N/A /* y is nan or inf */ 2N/A /* y is nan; x must be nan too */ 2N/A /* the following logic implements V9 app. B */ 2N/A /* y is snan, signal invalid */ 2N/A /* x and y are both qnan */ 2N/A /* x and y are both inf */ 2N/A /* inf - inf, signal invalid */ 2N/A /* inf + inf, return inf */ 2N/A /* snan, signal invalid */ 2N/A /* now x and y are finite and |x| >= |y| */