2N/A/*
2N/A * CDDL HEADER START
2N/A *
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 * with the License.
2N/A *
2N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A * or http://www.opensolaris.org/os/licensing.
2N/A * See the License for the specific language governing permissions
2N/A * and limitations under the License.
2N/A *
2N/A * When distributing Covered Code, include this CDDL HEADER in each
2N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
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 *
2N/A * CDDL HEADER END
2N/A */
2N/A/*
2N/A * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
2N/A * Use is subject to license terms.
2N/A */
2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A/*
2N/A * _X_cplx_lr_div_rx(a, w) returns a / w computed by the textbook
2N/A * formula without regard to exceptions or special cases.
2N/A *
2N/A * This code is intended to be used only when CX_LIMITED_RANGE is
2N/A * ON; otherwise use _X_cplx_div_rx.
2N/A */
2N/A
2N/A#if !defined(i386) && !defined(__i386) && !defined(__amd64)
2N/A#error This code is for x86 only
2N/A#endif
2N/A
2N/Along double _Complex
2N/A_X_cplx_lr_div_rx(long double a, long double _Complex w)
2N/A{
2N/A long double _Complex v;
2N/A long double c, d, r;
2N/A
2N/A c = ((long double *)&w)[0];
2N/A d = ((long double *)&w)[1];
2N/A r = a / (c * c + d * d);
2N/A ((long double *)&v)[0] = r * c;
2N/A ((long double *)&v)[1] = r * -d;
2N/A return (v);
2N/A}