2016-10-29 22:11:37 -06:00
|
|
|
// Copyright 2016 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.
|
|
|
|
|
|
|
|
#include "textflag.h"
|
|
|
|
|
|
|
|
// Constants
|
|
|
|
DATA coshrodataL23<>+0(SB)/8, $0.231904681384629956E-16
|
|
|
|
DATA coshrodataL23<>+8(SB)/8, $0.693147180559945286E+00
|
|
|
|
DATA coshrodataL23<>+16(SB)/8, $0.144269504088896339E+01
|
|
|
|
DATA coshrodataL23<>+24(SB)/8, $704.E0
|
|
|
|
GLOBL coshrodataL23<>+0(SB), RODATA, $32
|
|
|
|
DATA coshxinf<>+0(SB)/8, $0x7FF0000000000000
|
|
|
|
GLOBL coshxinf<>+0(SB), RODATA, $8
|
|
|
|
DATA coshxlim1<>+0(SB)/8, $800.E0
|
|
|
|
GLOBL coshxlim1<>+0(SB), RODATA, $8
|
|
|
|
DATA coshxaddhy<>+0(SB)/8, $0xc2f0000100003fdf
|
|
|
|
GLOBL coshxaddhy<>+0(SB), RODATA, $8
|
|
|
|
DATA coshx4ff<>+0(SB)/8, $0x4ff0000000000000
|
|
|
|
GLOBL coshx4ff<>+0(SB), RODATA, $8
|
|
|
|
DATA coshe1<>+0(SB)/8, $0x3ff000000000000a
|
|
|
|
GLOBL coshe1<>+0(SB), RODATA, $8
|
|
|
|
|
|
|
|
// Log multiplier table
|
|
|
|
DATA coshtab<>+0(SB)/8, $0.442737824274138381E-01
|
|
|
|
DATA coshtab<>+8(SB)/8, $0.263602189790660309E-01
|
|
|
|
DATA coshtab<>+16(SB)/8, $0.122565642281703586E-01
|
|
|
|
DATA coshtab<>+24(SB)/8, $0.143757052860721398E-02
|
|
|
|
DATA coshtab<>+32(SB)/8, $-.651375034121276075E-02
|
|
|
|
DATA coshtab<>+40(SB)/8, $-.119317678849450159E-01
|
|
|
|
DATA coshtab<>+48(SB)/8, $-.150868749549871069E-01
|
|
|
|
DATA coshtab<>+56(SB)/8, $-.161992609578469234E-01
|
|
|
|
DATA coshtab<>+64(SB)/8, $-.154492360403337917E-01
|
|
|
|
DATA coshtab<>+72(SB)/8, $-.129850717389178721E-01
|
|
|
|
DATA coshtab<>+80(SB)/8, $-.892902649276657891E-02
|
|
|
|
DATA coshtab<>+88(SB)/8, $-.338202636596794887E-02
|
|
|
|
DATA coshtab<>+96(SB)/8, $0.357266307045684762E-02
|
|
|
|
DATA coshtab<>+104(SB)/8, $0.118665304327406698E-01
|
|
|
|
DATA coshtab<>+112(SB)/8, $0.214434994118118914E-01
|
|
|
|
DATA coshtab<>+120(SB)/8, $0.322580645161290314E-01
|
|
|
|
GLOBL coshtab<>+0(SB), RODATA, $128
|
|
|
|
|
|
|
|
// Minimax polynomial approximations
|
|
|
|
DATA coshe2<>+0(SB)/8, $0.500000000000004237e+00
|
|
|
|
GLOBL coshe2<>+0(SB), RODATA, $8
|
|
|
|
DATA coshe3<>+0(SB)/8, $0.166666666630345592e+00
|
|
|
|
GLOBL coshe3<>+0(SB), RODATA, $8
|
|
|
|
DATA coshe4<>+0(SB)/8, $0.416666664838056960e-01
|
|
|
|
GLOBL coshe4<>+0(SB), RODATA, $8
|
|
|
|
DATA coshe5<>+0(SB)/8, $0.833349307718286047e-02
|
|
|
|
GLOBL coshe5<>+0(SB), RODATA, $8
|
|
|
|
DATA coshe6<>+0(SB)/8, $0.138926439368309441e-02
|
|
|
|
GLOBL coshe6<>+0(SB), RODATA, $8
|
|
|
|
|
|
|
|
// Cosh returns the hyperbolic cosine of x.
|
|
|
|
//
|
|
|
|
// Special cases are:
|
|
|
|
// Cosh(±0) = 1
|
|
|
|
// Cosh(±Inf) = +Inf
|
|
|
|
// Cosh(NaN) = NaN
|
|
|
|
// The algorithm used is minimax polynomial approximation
|
|
|
|
// with coefficients determined with a Remez exchange algorithm.
|
|
|
|
|
|
|
|
TEXT ·coshAsm(SB),NOSPLIT,$0-16
|
|
|
|
FMOVD x+0(FP), F0
|
|
|
|
MOVD $coshrodataL23<>+0(SB), R9
|
|
|
|
WORD $0xB3120000 //ltdbr %f0,%f0
|
|
|
|
MOVD $0x4086000000000000, R2
|
|
|
|
MOVD $0x4086000000000000, R3
|
|
|
|
BLTU L19
|
|
|
|
FMOVD F0, F4
|
|
|
|
L2:
|
|
|
|
WORD $0xED409018 //cdb %f4,.L24-.L23(%r9)
|
|
|
|
BYTE $0x00
|
|
|
|
BYTE $0x19
|
|
|
|
BGE L14 //jnl .L14
|
|
|
|
BVS L14
|
|
|
|
WFCEDBS V4, V4, V2
|
|
|
|
BEQ L20
|
|
|
|
L1:
|
|
|
|
FMOVD F0, ret+8(FP)
|
|
|
|
RET
|
|
|
|
|
|
|
|
L14:
|
|
|
|
WFCEDBS V4, V4, V2
|
|
|
|
BVS L1
|
|
|
|
MOVD $coshxlim1<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F2
|
|
|
|
WFCHEDBS V4, V2, V2
|
|
|
|
BEQ L21
|
|
|
|
MOVD $coshxaddhy<>+0(SB), R1
|
|
|
|
FMOVD coshrodataL23<>+16(SB), F5
|
|
|
|
FMOVD 0(R1), F2
|
|
|
|
WFMSDB V0, V5, V2, V5
|
|
|
|
FMOVD coshrodataL23<>+8(SB), F3
|
|
|
|
FADD F5, F2
|
|
|
|
MOVD $coshe6<>+0(SB), R1
|
|
|
|
WFMSDB V2, V3, V0, V3
|
|
|
|
FMOVD 0(R1), F6
|
|
|
|
WFMDB V3, V3, V1
|
|
|
|
MOVD $coshe4<>+0(SB), R1
|
|
|
|
FMOVD coshrodataL23<>+0(SB), F7
|
|
|
|
WFMADB V2, V7, V3, V2
|
|
|
|
FMOVD 0(R1), F3
|
|
|
|
MOVD $coshe5<>+0(SB), R1
|
|
|
|
WFMADB V1, V6, V3, V6
|
|
|
|
FMOVD 0(R1), F7
|
|
|
|
MOVD $coshe3<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F3
|
|
|
|
WFMADB V1, V7, V3, V7
|
|
|
|
FNEG F2, F3
|
2017-03-28 14:14:02 -06:00
|
|
|
LGDR F5, R1
|
2016-10-29 22:11:37 -06:00
|
|
|
MOVD $coshe2<>+0(SB), R3
|
|
|
|
WFCEDBS V4, V0, V0
|
|
|
|
FMOVD 0(R3), F5
|
|
|
|
MOVD $coshe1<>+0(SB), R3
|
|
|
|
WFMADB V1, V6, V5, V6
|
|
|
|
FMOVD 0(R3), F5
|
|
|
|
WORD $0xEC21000F //risbgn %r2,%r1,64-64+0,64-64+0+16-1,64-0-16
|
|
|
|
BYTE $0x30
|
|
|
|
BYTE $0x59
|
|
|
|
WFMADB V1, V7, V5, V1
|
|
|
|
BVS L22
|
|
|
|
WORD $0xEC4139BC //risbg %r4,%r1,57,128+60,3
|
|
|
|
BYTE $0x03
|
|
|
|
BYTE $0x55
|
|
|
|
MOVD $coshtab<>+0(SB), R3
|
|
|
|
WFMADB V3, V6, V1, V6
|
|
|
|
WORD $0x68043000 //ld %f0,0(%r4,%r3)
|
2016-11-17 09:53:21 -07:00
|
|
|
FMSUB F0, F3, F2
|
2016-10-29 22:11:37 -06:00
|
|
|
WORD $0xA71AF000 //ahi %r1,-4096
|
|
|
|
WFMADB V2, V6, V0, V6
|
|
|
|
L17:
|
|
|
|
WORD $0xEC21000F //risbgn %r2,%r1,64-64+0,64-64+0+16-1,64-0-16
|
|
|
|
BYTE $0x30
|
|
|
|
BYTE $0x59
|
2017-03-28 14:14:02 -06:00
|
|
|
LDGR R2, F2
|
2016-11-17 09:53:21 -07:00
|
|
|
FMADD F2, F6, F2
|
2016-10-29 22:11:37 -06:00
|
|
|
MOVD $coshx4ff<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F0
|
|
|
|
FMUL F2, F0
|
|
|
|
FMOVD F0, ret+8(FP)
|
|
|
|
RET
|
|
|
|
|
|
|
|
L19:
|
|
|
|
FNEG F0, F4
|
|
|
|
BR L2
|
|
|
|
L20:
|
|
|
|
MOVD $coshxaddhy<>+0(SB), R1
|
|
|
|
FMOVD coshrodataL23<>+16(SB), F3
|
|
|
|
FMOVD 0(R1), F2
|
|
|
|
WFMSDB V0, V3, V2, V3
|
|
|
|
FMOVD coshrodataL23<>+8(SB), F4
|
|
|
|
FADD F3, F2
|
|
|
|
MOVD $coshe6<>+0(SB), R1
|
2016-11-17 09:53:21 -07:00
|
|
|
FMSUB F4, F2, F0
|
2016-10-29 22:11:37 -06:00
|
|
|
FMOVD 0(R1), F6
|
|
|
|
WFMDB V0, V0, V1
|
|
|
|
MOVD $coshe4<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F4
|
|
|
|
MOVD $coshe5<>+0(SB), R1
|
|
|
|
FMOVD coshrodataL23<>+0(SB), F5
|
|
|
|
WFMADB V1, V6, V4, V6
|
2016-11-17 09:53:21 -07:00
|
|
|
FMADD F5, F2, F0
|
2016-10-29 22:11:37 -06:00
|
|
|
FMOVD 0(R1), F2
|
|
|
|
MOVD $coshe3<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F4
|
|
|
|
WFMADB V1, V2, V4, V2
|
|
|
|
MOVD $coshe2<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F5
|
|
|
|
FNEG F0, F4
|
|
|
|
WFMADB V1, V6, V5, V6
|
|
|
|
MOVD $coshe1<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F5
|
|
|
|
WFMADB V1, V2, V5, V1
|
2017-03-28 14:14:02 -06:00
|
|
|
LGDR F3, R1
|
2016-10-29 22:11:37 -06:00
|
|
|
MOVD $coshtab<>+0(SB), R5
|
|
|
|
WFMADB V4, V6, V1, V3
|
|
|
|
WORD $0xEC4139BC //risbg %r4,%r1,57,128+60,3
|
|
|
|
BYTE $0x03
|
|
|
|
BYTE $0x55
|
|
|
|
WFMSDB V4, V6, V1, V6
|
|
|
|
WORD $0x68145000 //ld %f1,0(%r4,%r5)
|
|
|
|
WFMSDB V4, V1, V0, V2
|
|
|
|
WORD $0xA7487FBE //lhi %r4,32702
|
2016-11-17 09:53:21 -07:00
|
|
|
FMADD F3, F2, F1
|
2016-10-29 22:11:37 -06:00
|
|
|
SUBW R1, R4
|
|
|
|
WORD $0xECC439BC //risbg %r12,%r4,57,128+60,3
|
|
|
|
BYTE $0x03
|
|
|
|
BYTE $0x55
|
|
|
|
WORD $0x682C5000 //ld %f2,0(%r12,%r5)
|
2016-11-17 09:53:21 -07:00
|
|
|
FMSUB F2, F4, F0
|
2016-10-29 22:11:37 -06:00
|
|
|
WORD $0xEC21000F //risbgn %r2,%r1,64-64+0,64-64+0+16-1,64-0-16
|
|
|
|
BYTE $0x30
|
|
|
|
BYTE $0x59
|
|
|
|
WFMADB V0, V6, V2, V6
|
|
|
|
WORD $0xEC34000F //risbgn %r3,%r4,64-64+0,64-64+0+16-1,64-0-16
|
|
|
|
BYTE $0x30
|
|
|
|
BYTE $0x59
|
2017-03-28 14:14:02 -06:00
|
|
|
LDGR R2, F2
|
|
|
|
LDGR R3, F0
|
2016-11-17 09:53:21 -07:00
|
|
|
FMADD F2, F1, F2
|
|
|
|
FMADD F0, F6, F0
|
2016-10-29 22:11:37 -06:00
|
|
|
FADD F2, F0
|
|
|
|
FMOVD F0, ret+8(FP)
|
|
|
|
RET
|
|
|
|
|
|
|
|
L22:
|
|
|
|
WORD $0xA7387FBE //lhi %r3,32702
|
|
|
|
MOVD $coshtab<>+0(SB), R4
|
|
|
|
SUBW R1, R3
|
|
|
|
WFMSDB V3, V6, V1, V6
|
|
|
|
WORD $0xEC3339BC //risbg %r3,%r3,57,128+60,3
|
|
|
|
BYTE $0x03
|
|
|
|
BYTE $0x55
|
|
|
|
WORD $0x68034000 //ld %f0,0(%r3,%r4)
|
2016-11-17 09:53:21 -07:00
|
|
|
FMSUB F0, F3, F2
|
2016-10-29 22:11:37 -06:00
|
|
|
WORD $0xA7386FBE //lhi %r3,28606
|
|
|
|
WFMADB V2, V6, V0, V6
|
|
|
|
SUBW R1, R3, R1
|
|
|
|
BR L17
|
|
|
|
L21:
|
|
|
|
MOVD $coshxinf<>+0(SB), R1
|
|
|
|
FMOVD 0(R1), F0
|
|
|
|
FMOVD F0, ret+8(FP)
|
|
|
|
RET
|
|
|
|
|