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_uxtoq(pz, x) sets *pz = (long double)x. 2N/A /* find the most significant bit */ 2N/A for (e =
63; (x & (
1l << e)) == 0; e--)
2N/A Z.l.
msw = (x >> (e -
16)) &
0xffff;
2N/A }
else if (e >
16) {
2N/A Z.l.
msw = (x >> (e -
16)) &
0xffff;
2N/A Z.l.
msw = (x << (
16 - e)) &
0xffff;
2N/A Z.l.
msw |= ((e +
0x3fff) <<
16);