patched bugs in sin / cos

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6781 8c9fc860-2736-0410-a75d-ab315db34111

source/ARM.Math.Mod

@@ -54,8 +54,8 @@ BEGIN
 	IF NEON THEN
 		IF x < 0.0 THEN RETURN -Sin(-x) ELSE RETURN Sin(x) END
 	ELSE
-		WHILE x >= 2 * pi DO x := x - pi END;
-		WHILE x < 0 DO x := x + pi END;
+		WHILE x >= 2 * pi DO x := x - 2*pi END;
+		WHILE x < 0 DO x := x + 2*pi END;
 		res := x;
 		xk := x;
 		k := 1;
@@ -77,8 +77,8 @@ BEGIN
 	IF NEON THEN
 		IF x < 0.0 THEN RETURN Cos(-x) ELSE RETURN Cos(x) END
 	ELSE
-		WHILE x >= 2 * pi DO x := x - pi END;
-		WHILE x < 0 DO x := x + pi END;
+		WHILE x >= 2 * pi DO x := x - 2*pi END;
+		WHILE x < 0 DO x := x + 2*pi END;
 		res := 1.0;
 		xk := 1.0;
 		kf := 1;

source/ARM.MathL.Mod

@@ -58,8 +58,8 @@ BEGIN
 	IF NEON THEN
 		IF x < 0.0 THEN RETURN -Sin(-x) ELSE RETURN Sin(x) END
 	ELSE
-		WHILE x >= 2 * pi DO x := x - pi END;
-		WHILE x < 0 DO x := x + pi END;
+		WHILE x >= 2 * pi DO x := x - 2*pi END;
+		WHILE x < 0 DO x := x + 2*pi END;
 		res := x;
 		xk := x;
 		k := 1;
@@ -81,8 +81,8 @@ BEGIN
 	IF NEON THEN
 		IF x < 0.0 THEN RETURN Cos(-x) ELSE RETURN Cos(x) END
 	ELSE
-		WHILE x >= 2 * pi DO x := x - pi END;
-		WHILE x < 0 DO x := x + pi END;
+		WHILE x >= 2 * pi DO x := x - 2*pi END;
+		WHILE x < 0 DO x := x + 2*pi END;
 		res := 1.0;
 		xk := 1.0;
 		kf := 1;