summaryrefslogtreecommitdiff
path: root/src/lib/math/fmod.go
blob: b7dd90ee8282888e0781441187d64e4f52a59833 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package math

export	fmod

/*
 *	floating-point mod func without infinity or NaN checking
 */

func
fmod(x, y float64) float64
{
	var yexp, rexp int;
	var r, yfr, rfr float64;
	var sign bool;

	if y == 0 {
		return x;
	}
	if y < 0 {
		y = -y;
	}

	yfr,yexp = sys.frexp(y);
	sign = false;
	if x < 0 {
		r = -x;
		sign = true;
	} else {
		r = x;
	}

	for r >= y {
		rfr,rexp = sys.frexp(r);
		if rfr < yfr {
			rexp = rexp - 1;
		}
		r = r - sys.ldexp(y, rexp-yexp);
	}
	if sign {
		r = -r;
	}
	return r;
}