GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: lib/libm/src/s_scalbln.c Lines: 0 15 0.0 %
Date: 2017-11-13 Branches: 0 12 0.0 %

Line Branch Exec Source
1
/*	$OpenBSD: s_scalbln.c,v 1.1 2009/07/25 11:38:10 martynas Exp $	*/
2
3
/*
4
 * Written by Martynas Venckus.  Public domain
5
 */
6
7
#include <limits.h>
8
#include <math.h>
9
10
double
11
scalbln(double x, long n)
12
{
13
	if (n < INT_MIN)
14
		return scalbn(x, INT_MIN);
15
	else if (n > INT_MAX)
16
		return scalbn(x, INT_MAX);
17
	else
18
		return scalbn(x, (int)n);
19
}
20
21
float
22
scalblnf(float x, long n)
23
{
24
	if (n < INT_MIN)
25
		return scalbnf(x, INT_MIN);
26
	else if (n > INT_MAX)
27
		return scalbnf(x, INT_MAX);
28
	else
29
		return scalbnf(x, (int)n);
30
}
31
32
long double
33
scalblnl(long double x, long n)
34
{
35
	if (n < INT_MIN)
36
		return scalbnl(x, INT_MIN);
37
	else if (n > INT_MAX)
38
		return scalbnl(x, INT_MAX);
39
	else
40
		return scalbnl(x, (int)n);
41
}
42