math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
// 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.
|
|
|
|
|
2014-08-12 18:04:45 -06:00
|
|
|
#include "textflag.h"
|
2013-08-12 11:25:18 -06:00
|
|
|
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
// func Cos(x float64) float64
|
2013-08-12 11:25:18 -06:00
|
|
|
TEXT ·Cos(SB),NOSPLIT,$0
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
FMOVD x+0(FP), F0 // F0=x
|
|
|
|
FCOS // F0=cos(x) if -2**63 < x < 2**63
|
|
|
|
FSTSW AX // AX=status word
|
|
|
|
ANDW $0x0400, AX
|
|
|
|
JNE 3(PC) // jump if x outside range
|
2013-03-22 10:57:55 -06:00
|
|
|
FMOVDP F0, ret+8(FP)
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
RET
|
|
|
|
FLDPI // F0=Pi, F1=x
|
|
|
|
FADDD F0, F0 // F0=2*Pi, F1=x
|
|
|
|
FXCHD F0, F1 // F0=x, F1=2*Pi
|
|
|
|
FPREM1 // F0=reduced_x, F1=2*Pi
|
|
|
|
FSTSW AX // AX=status word
|
|
|
|
ANDW $0x0400, AX
|
|
|
|
JNE -3(PC) // jump if reduction incomplete
|
|
|
|
FMOVDP F0, F1 // F0=reduced_x
|
|
|
|
FCOS // F0=cos(reduced_x)
|
2013-03-22 10:57:55 -06:00
|
|
|
FMOVDP F0, ret+8(FP)
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
RET
|
|
|
|
|
|
|
|
// func Sin(x float64) float64
|
2013-08-12 11:25:18 -06:00
|
|
|
TEXT ·Sin(SB),NOSPLIT,$0
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
FMOVD x+0(FP), F0 // F0=x
|
|
|
|
FSIN // F0=sin(x) if -2**63 < x < 2**63
|
|
|
|
FSTSW AX // AX=status word
|
|
|
|
ANDW $0x0400, AX
|
|
|
|
JNE 3(PC) // jump if x outside range
|
2013-03-22 10:57:55 -06:00
|
|
|
FMOVDP F0, ret+8(FP)
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
RET
|
|
|
|
FLDPI // F0=Pi, F1=x
|
|
|
|
FADDD F0, F0 // F0=2*Pi, F1=x
|
|
|
|
FXCHD F0, F1 // F0=x, F1=2*Pi
|
|
|
|
FPREM1 // F0=reduced_x, F1=2*Pi
|
|
|
|
FSTSW AX // AX=status word
|
|
|
|
ANDW $0x0400, AX
|
|
|
|
JNE -3(PC) // jump if reduction incomplete
|
|
|
|
FMOVDP F0, F1 // F0=reduced_x
|
|
|
|
FSIN // F0=sin(reduced_x)
|
2013-03-22 10:57:55 -06:00
|
|
|
FMOVDP F0, ret+8(FP)
|
math: 386 FPU functions
sin, cos, tan, asin, acos, atan, exp, log, log10,
floor, ceil, and fabs
R=rsc
CC=golang-dev
https://golang.org/cl/189083
2010-01-15 14:21:36 -07:00
|
|
|
RET
|