GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: lib/libm/src/s_roundl.c Lines: 10 12 83.3 %
Date: 2017-11-13 Branches: 6 8 75.0 %

Line Branch Exec Source
1
/*	$OpenBSD: s_roundl.c,v 1.3 2016/09/12 19:47:02 guenther Exp $	*/
2
3
/*-
4
 * Copyright (c) 2003, Steven G. Kargl
5
 * All rights reserved.
6
 *
7
 * Redistribution and use in source and binary forms, with or without
8
 * modification, are permitted provided that the following conditions
9
 * are met:
10
 * 1. Redistributions of source code must retain the above copyright
11
 *    notice unmodified, this list of conditions, and the following
12
 *    disclaimer.
13
 * 2. Redistributions in binary form must reproduce the above copyright
14
 *    notice, this list of conditions and the following disclaimer in the
15
 *    documentation and/or other materials provided with the distribution.
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27
 */
28
29
#include <math.h>
30
31
long double
32
roundl(long double x)
33
{
34
	long double t;
35
36
54
	if (!isfinite(x))
37
		return (x);
38
39
27
	if (x >= 0.0) {
40
21
		t = floorl(x);
41
21
		if (t - x <= -0.5)
42
9
			t += 1.0;
43
21
		return (t);
44
	} else {
45
6
		t = floorl(-x);
46
6
		if (t + x <= -0.5)
47
			t += 1.0;
48
6
		return (-t);
49
	}
50
27
}
51
DEF_STD(roundl);