Gecko [ 167.86.127.34 ]

Name	Size	Permission
big	[ DIR ]	drwxr-xr-x
bits	[ DIR ]	drwxr-xr-x
cmplx	[ DIR ]	drwxr-xr-x
rand	[ DIR ]	drwxr-xr-x
abs.go	363 B	-rw-r--r--
acos_s390x.s	3.73 KB	-rw-r--r--
acosh.go	1.72 KB	-rw-r--r--
acosh_s390x.s	4.32 KB	-rw-r--r--
all_test.go	84.21 KB	-rw-r--r--
arith_s390x.go	2.01 KB	-rw-r--r--
arith_s390x_test.go	10.78 KB	-rw-r--r--
asin.go	983 B	-rw-r--r--
asin_386.s	1.09 KB	-rw-r--r--
asin_s390x.s	4.16 KB	-rw-r--r--
asinh.go	1.85 KB	-rw-r--r--
asinh_s390x.s	5.74 KB	-rw-r--r--
atan.go	2.97 KB	-rw-r--r--
atan2.go	1.45 KB	-rw-r--r--
atan2_386.s	396 B	-rw-r--r--
atan2_s390x.s	6.88 KB	-rw-r--r--
atan_386.s	376 B	-rw-r--r--
atan_s390x.s	3.69 KB	-rw-r--r--
atanh.go	1.93 KB	-rw-r--r--
atanh_s390x.s	5.36 KB	-rw-r--r--
bits.go	1.87 KB	-rw-r--r--
cbrt.go	2.25 KB	-rw-r--r--
cbrt_s390x.s	4.89 KB	-rw-r--r--
const.go	2.18 KB	-rw-r--r--
copysign.go	378 B	-rw-r--r--
cosh_s390x.s	5.59 KB	-rw-r--r--
dim.go	1.55 KB	-rw-r--r--
dim_amd64.s	1.9 KB	-rw-r--r--
dim_arm64.s	947 B	-rw-r--r--
dim_s390x.s	1.96 KB	-rw-r--r--
erf.go	11.38 KB	-rw-r--r--
erf_s390x.s	8.5 KB	-rw-r--r--
erfc_s390x.s	14.4 KB	-rw-r--r--
erfinv.go	3.36 KB	-rw-r--r--
example_test.go	3.33 KB	-rw-r--r--
exp.go	5.25 KB	-rw-r--r--
exp2_386.s	1.12 KB	-rw-r--r--
exp_amd64.s	4.23 KB	-rw-r--r--
exp_arm64.s	5.35 KB	-rw-r--r--
exp_asm.go	260 B	-rw-r--r--
exp_s390x.s	4.65 KB	-rw-r--r--
expm1.go	7.84 KB	-rw-r--r--
expm1_386.s	1.84 KB	-rw-r--r--
expm1_s390x.s	5.29 KB	-rw-r--r--
export_s390x_test.go	732 B	-rw-r--r--
export_test.go	357 B	-rw-r--r--
floor.go	3.09 KB	-rw-r--r--
floor_386.s	1.45 KB	-rw-r--r--
floor_amd64.s	1.98 KB	-rw-r--r--
floor_arm64.s	549 B	-rw-r--r--
floor_ppc64x.s	483 B	-rw-r--r--
floor_s390x.s	555 B	-rw-r--r--
floor_wasm.s	447 B	-rw-r--r--
fma.go	4.49 KB	-rw-r--r--
frexp.go	860 B	-rw-r--r--
frexp_386.s	689 B	-rw-r--r--
gamma.go	5.52 KB	-rw-r--r--
huge_test.go	2.24 KB	-rw-r--r--
hypot.go	773 B	-rw-r--r--
hypot_386.s	1.8 KB	-rw-r--r--
hypot_amd64.s	1.05 KB	-rw-r--r--
j0.go	13.6 KB	-rw-r--r--
j1.go	13.3 KB	-rw-r--r--
jn.go	7.17 KB	-rw-r--r--
ldexp.go	990 B	-rw-r--r--
ldexp_386.s	441 B	-rw-r--r--
lgamma.go	11.02 KB	-rw-r--r--
log.go	3.8 KB	-rw-r--r--
log10.go	740 B	-rw-r--r--
log10_386.s	596 B	-rw-r--r--
log10_s390x.s	4.73 KB	-rw-r--r--
log1p.go	6.3 KB	-rw-r--r--
log1p_386.s	860 B	-rw-r--r--
log1p_s390x.s	5.15 KB	-rw-r--r--
log_386.s	394 B	-rw-r--r--
log_amd64.s	3.66 KB	-rw-r--r--
log_s390x.s	4.31 KB	-rw-r--r--
logb.go	1014 B	-rw-r--r--
mod.go	834 B	-rw-r--r--
mod_386.s	531 B	-rw-r--r--
modf.go	847 B	-rw-r--r--
modf_386.s	1.07 KB	-rw-r--r--
modf_arm64.s	439 B	-rw-r--r--
modf_ppc64x.s	404 B	-rw-r--r--
nextafter.go	1.2 KB	-rw-r--r--
pow.go	3.16 KB	-rw-r--r--
pow10.go	1.24 KB	-rw-r--r--
pow_s390x.s	16.27 KB	-rw-r--r--
remainder.go	1.96 KB	-rw-r--r--
remainder_386.s	543 B	-rw-r--r--
signbit.go	302 B	-rw-r--r--
sin.go	6.23 KB	-rw-r--r--
sin_s390x.s	8.34 KB	-rw-r--r--
sincos.go	1.75 KB	-rw-r--r--
sinh.go	1.56 KB	-rw-r--r--
sinh_s390x.s	5.98 KB	-rw-r--r--
sqrt.go	4.84 KB	-rw-r--r--
sqrt_386.s	296 B	-rw-r--r--
sqrt_amd64.s	326 B	-rw-r--r--
sqrt_arm.s	521 B	-rw-r--r--
sqrt_arm64.s	302 B	-rw-r--r--
sqrt_mipsx.s	375 B	-rw-r--r--
sqrt_ppc64x.s	326 B	-rw-r--r--
sqrt_s390x.s	301 B	-rw-r--r--
sqrt_wasm.s	269 B	-rw-r--r--
stubs_386.s	908 B	-rw-r--r--
stubs_amd64.s	1.41 KB	-rw-r--r--
stubs_arm.s	1.7 KB	-rw-r--r--
stubs_arm64.s	1.37 KB	-rw-r--r--
stubs_mips64x.s	1.83 KB	-rw-r--r--
stubs_mipsx.s	1.79 KB	-rw-r--r--
stubs_ppc64x.s	1.58 KB	-rw-r--r--
stubs_riscv64.s	1.75 KB	-rw-r--r--
stubs_s390x.s	13.24 KB	-rw-r--r--
stubs_wasm.s	1.63 KB	-rw-r--r--
tan.go	3.61 KB	-rw-r--r--
tan_s390x.s	2.73 KB	-rw-r--r--
tanh.go	2.59 KB	-rw-r--r--
tanh_s390x.s	4.57 KB	-rw-r--r--
trig_reduce.go	2.94 KB	-rw-r--r--
unsafe.go	1.27 KB	-rw-r--r--

Code Editor : cosh_s390x.s

// 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
	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
	LGDR    F5, R1
	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
	RISBGN	$0, $15, $48, R1, R2
	WFMADB  V1, V7, V5, V1
	BVS     L22
	RISBGZ	$57, $60, $3, R1, R4
	MOVD    $coshtab<>+0(SB), R3
	WFMADB  V3, V6, V1, V6
	WORD    $0x68043000     //ld    %f0,0(%r4,%r3)
	FMSUB   F0, F3, F2
	WORD    $0xA71AF000     //ahi   %r1,-4096
	WFMADB  V2, V6, V0, V6
L17:
	RISBGN	$0, $15, $48, R1, R2
	LDGR    R2, F2
	FMADD   F2, F6, F2
	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
	FMSUB   F4, F2, F0
	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
	FMADD   F5, F2, F0
	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
	LGDR    F3, R1
	MOVD    $coshtab<>+0(SB), R5
	WFMADB  V4, V6, V1, V3
	RISBGZ	$57, $60, $3, R1, R4
	WFMSDB  V4, V6, V1, V6
	WORD    $0x68145000     //ld %f1,0(%r4,%r5)
	WFMSDB  V4, V1, V0, V2
	WORD    $0xA7487FBE     //lhi %r4,32702
	FMADD   F3, F2, F1
	SUBW    R1, R4
	RISBGZ	$57, $60, $3, R4, R12
	WORD    $0x682C5000     //ld %f2,0(%r12,%r5)
	FMSUB   F2, F4, F0
	RISBGN	$0, $15, $48, R1, R2
	WFMADB  V0, V6, V2, V6
	RISBGN	$0, $15, $48, R4, R3
	LDGR    R2, F2
	LDGR    R3, F0
	FMADD   F2, F1, F2
	FMADD   F0, F6, F0
	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
	RISBGZ	$57, $60, $3, R3, R3
	WORD    $0x68034000     //ld %f0,0(%r3,%r4)
	FMSUB   F0, F3, F2
	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

${this.title}

Code Editor : cosh_s390x.s