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_xtoq(pz, x) sets *pz = (long double)x. 2N/A /* extract the sign */ 2N/A if ((
unsigned long) x ==
0x8000000000000000ul) {
2N/A /* largest negative 64 bit int */ 2N/A }
else if (x == 0) {
2N/A /* find the most significant bit */ 2N/A for (e =
62; (x & (
1l << e)) == 0; e--)
2N/A Z.l.
msw = ((
unsigned long) x >> (e -
16)) &
0xffff;
2N/A Z.l.
frac2 = (
unsigned long) x >> (e -
48);
2N/A Z.l.
frac3 = (
unsigned long) x << (
80 - e);
2N/A }
else if (e >
16) {
2N/A Z.l.
msw = ((
unsigned long) x >> (e -
16)) &
0xffff;
2N/A Z.l.
frac2 = (
unsigned long) x << (
48 - e);
2N/A Z.l.
msw = ((
unsigned long) x << (
16 - e)) &
0xffff;
2N/A Z.l.
msw |= s | ((e +
0x3fff) <<
16);