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 * _Qp_stoq(pz, x) sets *pz = (long double)x. 2N/A * _Qp_stoq(x) returns (long double)x. 2N/A#
endif /* __sparcv9 */ 2N/A /* extract the exponent */ 2N/A m = ((u.l &
0x7f800000) >>
7) +
0x3f800000;
2N/A if (m ==
0x3f800000) {
2N/A /* x is zero or denormal */ 2N/A if (u.l &
0x7fffff) {
2N/A /* x is denormal, normalize it */ 2N/A }
while ((f &
0x7f800000) == 0);
2N/A u.l = (u.l &
0x80000000) | f;
2N/A }
else if (m ==
0x407f0000) {
2N/A /* x is inf or nan */ 2N/A if ((u.l &
0x3fffff) && (u.l &
0x400000) == 0) {
2N/A /* snan, signal invalid */ 2N/A Z.l.
msw = m | (u.l &
0x80000000) | ((u.l &
0x7fff80) >>
7);