From 7a9389330e91acc3ed05deac2d198af25d13cf3c Mon Sep 17 00:00:00 2001
From: Ian Lance Taylor <ian@gcc.gnu.org>
Date: Fri, 3 Dec 2010 04:34:57 +0000
Subject: Add Go frontend, libgo library, and Go testsuite.

gcc/:
	* gcc.c (default_compilers): Add entry for ".go".
	* common.opt: Add -static-libgo as a driver option.
	* doc/install.texi (Configuration): Mention libgo as an option for
	--enable-shared.  Mention go as an option for --enable-languages.
	* doc/invoke.texi (Overall Options): Mention .go as a file name
	suffix.  Mention go as a -x option.
	* doc/frontends.texi (G++ and GCC): Mention Go as a supported
	language.
	* doc/sourcebuild.texi (Top Level): Mention libgo.
	* doc/standards.texi (Standards): Add section on Go language.
	Move references for other languages into their own section.
	* doc/contrib.texi (Contributors): Mention that I contributed the
	Go frontend.
gcc/testsuite/:
	* lib/go.exp: New file.
	* lib/go-dg.exp: New file.
	* lib/go-torture.exp: New file.
	* lib/target-supports.exp (check_compile): Match // Go.

From-SVN: r167407
---
 libgo/go/math/tan.go | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 libgo/go/math/tan.go

(limited to 'libgo/go/math/tan.go')

diff --git a/libgo/go/math/tan.go b/libgo/go/math/tan.go
new file mode 100644
index 00000000000..a36ebbf449c
--- /dev/null
+++ b/libgo/go/math/tan.go
@@ -0,0 +1,65 @@
+// 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
+
+
+/*
+	Floating point tangent.
+*/
+
+// Tan returns the tangent of x.
+func Tan(x float64) float64 {
+	// Coefficients are #4285 from Hart & Cheney. (19.74D)
+	const (
+		P0 = -.1306820264754825668269611177e+5
+		P1 = .1055970901714953193602353981e+4
+		P2 = -.1550685653483266376941705728e+2
+		P3 = .3422554387241003435328470489e-1
+		P4 = .3386638642677172096076369e-4
+		Q0 = -.1663895238947119001851464661e+5
+		Q1 = .4765751362916483698926655581e+4
+		Q2 = -.1555033164031709966900124574e+3
+	)
+
+	flag := false
+	sign := false
+	if x < 0 {
+		x = -x
+		sign = true
+	}
+	x = x * (4 / Pi) /* overflow? */
+	var e float64
+	e, x = Modf(x)
+	i := int32(e)
+
+	switch i & 3 {
+	case 1:
+		x = 1 - x
+		flag = true
+
+	case 2:
+		sign = !sign
+		flag = true
+
+	case 3:
+		x = 1 - x
+		sign = !sign
+	}
+
+	xsq := x * x
+	temp := ((((P4*xsq+P3)*xsq+P2)*xsq+P1)*xsq + P0) * x
+	temp = temp / (((xsq+Q2)*xsq+Q1)*xsq + Q0)
+
+	if flag {
+		if temp == 0 {
+			return NaN()
+		}
+		temp = 1 / temp
+	}
+	if sign {
+		temp = -temp
+	}
+	return temp
+}
-- 
cgit v1.2.1