1*af3276d5Sguenther /* $OpenBSD: ldexp.c,v 1.9 2015/10/27 05:54:49 guenther Exp $ */
2df930be7Sderaadt /*-
3df930be7Sderaadt * Copyright (c) 1990 The Regents of the University of California.
4df930be7Sderaadt * All rights reserved.
5df930be7Sderaadt *
6df930be7Sderaadt * This code is derived from software contributed to Berkeley by
7df930be7Sderaadt * Charles Hannum.
8df930be7Sderaadt *
9df930be7Sderaadt * Redistribution and use in source and binary forms, with or without
10df930be7Sderaadt * modification, are permitted provided that the following conditions
11df930be7Sderaadt * are met:
12df930be7Sderaadt * 1. Redistributions of source code must retain the above copyright
13df930be7Sderaadt * notice, this list of conditions and the following disclaimer.
14df930be7Sderaadt * 2. Redistributions in binary form must reproduce the above copyright
15df930be7Sderaadt * notice, this list of conditions and the following disclaimer in the
16df930be7Sderaadt * documentation and/or other materials provided with the distribution.
176580fee3Smillert * 3. Neither the name of the University nor the names of its contributors
18df930be7Sderaadt * may be used to endorse or promote products derived from this software
19df930be7Sderaadt * without specific prior written permission.
20df930be7Sderaadt *
21df930be7Sderaadt * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22df930be7Sderaadt * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23df930be7Sderaadt * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24df930be7Sderaadt * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25df930be7Sderaadt * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26df930be7Sderaadt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27df930be7Sderaadt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28df930be7Sderaadt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29df930be7Sderaadt * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30df930be7Sderaadt * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31df930be7Sderaadt * SUCH DAMAGE.
32df930be7Sderaadt */
33df930be7Sderaadt
3472e8150aSderaadt #include <math.h>
3572e8150aSderaadt
36df930be7Sderaadt /*
37df930be7Sderaadt * ldexp(value, exp): return value * (2 ** exp).
38df930be7Sderaadt */
39df930be7Sderaadt
40df930be7Sderaadt double
ldexp(double value,int exp)41df930be7Sderaadt ldexp(double value, int exp)
42df930be7Sderaadt {
43df930be7Sderaadt double temp;
4427cc8027Stholo __asm ("fscale"
45df930be7Sderaadt : "=t" (temp)
46df930be7Sderaadt : "0" (value), "u" ((double)exp));
47df930be7Sderaadt return (temp);
48df930be7Sderaadt }
49*af3276d5Sguenther DEF_STRONG(ldexp);
50