// 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"

TEXT ·Exp2(SB),NOSPLIT,$0
	BR ·exp2(SB)

TEXT ·Frexp(SB),NOSPLIT,$0
	BR ·frexp(SB)

TEXT ·Hypot(SB),NOSPLIT,$0
	BR ·hypot(SB)

TEXT ·Ldexp(SB),NOSPLIT,$0
	BR ·ldexp(SB)

TEXT ·Log2(SB),NOSPLIT,$0
	BR ·log2(SB)

TEXT ·Modf(SB),NOSPLIT,$0
	BR ·modf(SB)

TEXT ·Mod(SB),NOSPLIT,$0
	BR ·mod(SB)

TEXT ·Remainder(SB),NOSPLIT,$0
	BR ·remainder(SB)

//if go assembly use vector instruction
TEXT ·hasVectorFacility(SB),NOSPLIT,$24-1
	MOVD    $x-24(SP), R1
	XC      $24, 0(R1), 0(R1) // clear the storage
	MOVD    $2, R0            // R0 is the number of double words stored -1
	WORD    $0xB2B01000       // STFLE 0(R1)
	XOR     R0, R0            // reset the value of R0
	MOVBZ   z-8(SP), R1
	AND     $0x40, R1
	BEQ     novector
vectorinstalled:
	// check if the vector instruction has been enabled
	VLEIB   $0, $0xF, V16
	VLGVB   $0, V16, R1
	CMPBNE  R1, $0xF, novector
	MOVB    $1, ret+0(FP) // have vx
	RET
novector:
	MOVB    $0, ret+0(FP) // no vx
	RET

TEXT ·Log10(SB),NOSPLIT,$0
	MOVD    ·log10vectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·log10TrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·log10vectorfacility+0x00(SB), R1
	MOVD    $·log10(SB), R2
	MOVD    R2, 0(R1)
	BR      ·log10(SB)
vectorimpl:
	MOVD    $·log10vectorfacility+0x00(SB), R1
	MOVD    $·log10Asm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·log10Asm(SB)

GLOBL ·log10vectorfacility+0x00(SB), NOPTR, $8
DATA ·log10vectorfacility+0x00(SB)/8, $·log10TrampolineSetup(SB)


TEXT ·Cos(SB),NOSPLIT,$0
	MOVD    ·cosvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·cosTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·cosvectorfacility+0x00(SB), R1
	MOVD    $·cos(SB), R2
	MOVD    R2, 0(R1)
	BR      ·cos(SB)
vectorimpl:
	MOVD    $·cosvectorfacility+0x00(SB), R1
	MOVD    $·cosAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·cosAsm(SB)

GLOBL ·cosvectorfacility+0x00(SB), NOPTR, $8
DATA ·cosvectorfacility+0x00(SB)/8, $·cosTrampolineSetup(SB)


TEXT ·Cosh(SB),NOSPLIT,$0
	MOVD    ·coshvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·coshTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·coshvectorfacility+0x00(SB), R1
	MOVD    $·cosh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·cosh(SB)
vectorimpl:
	MOVD    $·coshvectorfacility+0x00(SB), R1
	MOVD    $·coshAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·coshAsm(SB)

GLOBL ·coshvectorfacility+0x00(SB), NOPTR, $8
DATA ·coshvectorfacility+0x00(SB)/8, $·coshTrampolineSetup(SB)


TEXT ·Sin(SB),NOSPLIT,$0
	MOVD    ·sinvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·sinTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·sinvectorfacility+0x00(SB), R1
	MOVD    $·sin(SB), R2
	MOVD    R2, 0(R1)
	BR      ·sin(SB)
vectorimpl:
	MOVD    $·sinvectorfacility+0x00(SB), R1
	MOVD    $·sinAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·sinAsm(SB)

GLOBL ·sinvectorfacility+0x00(SB), NOPTR, $8
DATA ·sinvectorfacility+0x00(SB)/8, $·sinTrampolineSetup(SB)


TEXT ·Sinh(SB),NOSPLIT,$0
	MOVD    ·sinhvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·sinhTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·sinhvectorfacility+0x00(SB), R1
	MOVD    $·sinh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·sinh(SB)
vectorimpl:
	MOVD    $·sinhvectorfacility+0x00(SB), R1
	MOVD    $·sinhAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·sinhAsm(SB)

GLOBL ·sinhvectorfacility+0x00(SB), NOPTR, $8
DATA ·sinhvectorfacility+0x00(SB)/8, $·sinhTrampolineSetup(SB)


TEXT ·Tanh(SB),NOSPLIT,$0
	MOVD    ·tanhvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·tanhTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·tanhvectorfacility+0x00(SB), R1
	MOVD    $·tanh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·tanh(SB)
vectorimpl:
	MOVD    $·tanhvectorfacility+0x00(SB), R1
	MOVD    $·tanhAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·tanhAsm(SB)

GLOBL ·tanhvectorfacility+0x00(SB), NOPTR, $8
DATA ·tanhvectorfacility+0x00(SB)/8, $·tanhTrampolineSetup(SB)


TEXT ·Log1p(SB),NOSPLIT,$0
	MOVD    ·log1pvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·log1pTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·log1pvectorfacility+0x00(SB), R1
	MOVD    $·log1p(SB), R2
	MOVD    R2, 0(R1)
	BR      ·log1p(SB)
vectorimpl:
	MOVD    $·log1pvectorfacility+0x00(SB), R1
	MOVD    $·log1pAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·log1pAsm(SB)

GLOBL ·log1pvectorfacility+0x00(SB), NOPTR, $8
DATA ·log1pvectorfacility+0x00(SB)/8, $·log1pTrampolineSetup(SB)


TEXT ·Atanh(SB),NOSPLIT,$0
	MOVD    ·atanhvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·atanhTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·atanhvectorfacility+0x00(SB), R1
	MOVD    $·atanh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atanh(SB)
vectorimpl:
	MOVD    $·atanhvectorfacility+0x00(SB), R1
	MOVD    $·atanhAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atanhAsm(SB)

GLOBL ·atanhvectorfacility+0x00(SB), NOPTR, $8
DATA ·atanhvectorfacility+0x00(SB)/8, $·atanhTrampolineSetup(SB)


TEXT ·Acos(SB),NOSPLIT,$0
	MOVD    ·acosvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·acosTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·acosvectorfacility+0x00(SB), R1
	MOVD    $·acos(SB), R2
	MOVD    R2, 0(R1)
	BR      ·acos(SB)
vectorimpl:
	MOVD    $·acosvectorfacility+0x00(SB), R1
	MOVD    $·acosAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·acosAsm(SB)

GLOBL ·acosvectorfacility+0x00(SB), NOPTR, $8
DATA ·acosvectorfacility+0x00(SB)/8, $·acosTrampolineSetup(SB)


TEXT ·Asin(SB),NOSPLIT,$0
	MOVD    ·asinvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·asinTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·asinvectorfacility+0x00(SB), R1
	MOVD    $·asin(SB), R2
	MOVD    R2, 0(R1)
	BR      ·asin(SB)
vectorimpl:
	MOVD    $·asinvectorfacility+0x00(SB), R1
	MOVD    $·asinAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·asinAsm(SB)

GLOBL ·asinvectorfacility+0x00(SB), NOPTR, $8
DATA ·asinvectorfacility+0x00(SB)/8, $·asinTrampolineSetup(SB)


TEXT ·Asinh(SB),NOSPLIT,$0
	MOVD    ·asinhvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·asinhTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·asinhvectorfacility+0x00(SB), R1
	MOVD    $·asinh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·asinh(SB)
vectorimpl:
	MOVD    $·asinhvectorfacility+0x00(SB), R1
	MOVD    $·asinhAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·asinhAsm(SB)

GLOBL ·asinhvectorfacility+0x00(SB), NOPTR, $8
DATA ·asinhvectorfacility+0x00(SB)/8, $·asinhTrampolineSetup(SB)


TEXT ·Acosh(SB),NOSPLIT,$0
	MOVD    ·acoshvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·acoshTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·acoshvectorfacility+0x00(SB), R1
	MOVD    $·acosh(SB), R2
	MOVD    R2, 0(R1)
	BR      ·acosh(SB)
vectorimpl:
	MOVD    $·acoshvectorfacility+0x00(SB), R1
	MOVD    $·acoshAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·acoshAsm(SB)

GLOBL ·acoshvectorfacility+0x00(SB), NOPTR, $8
DATA ·acoshvectorfacility+0x00(SB)/8, $·acoshTrampolineSetup(SB)


TEXT ·Erf(SB),NOSPLIT,$0
	MOVD    ·erfvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·erfTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·erfvectorfacility+0x00(SB), R1
	MOVD    $·erf(SB), R2
	MOVD    R2, 0(R1)
	BR      ·erf(SB)
vectorimpl:
	MOVD    $·erfvectorfacility+0x00(SB), R1
	MOVD    $·erfAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·erfAsm(SB)

GLOBL ·erfvectorfacility+0x00(SB), NOPTR, $8
DATA ·erfvectorfacility+0x00(SB)/8, $·erfTrampolineSetup(SB)


TEXT ·Erfc(SB),NOSPLIT,$0
	MOVD    ·erfcvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·erfcTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·erfcvectorfacility+0x00(SB), R1
	MOVD    $·erfc(SB), R2
	MOVD    R2, 0(R1)
	BR      ·erfc(SB)
vectorimpl:
	MOVD    $·erfcvectorfacility+0x00(SB), R1
	MOVD    $·erfcAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·erfcAsm(SB)

GLOBL ·erfcvectorfacility+0x00(SB), NOPTR, $8
DATA ·erfcvectorfacility+0x00(SB)/8, $·erfcTrampolineSetup(SB)


TEXT ·Atan(SB),NOSPLIT,$0
	MOVD    ·atanvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·atanTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·atanvectorfacility+0x00(SB), R1
	MOVD    $·atan(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atan(SB)
vectorimpl:
	MOVD    $·atanvectorfacility+0x00(SB), R1
	MOVD    $·atanAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atanAsm(SB)

GLOBL ·atanvectorfacility+0x00(SB), NOPTR, $8
DATA ·atanvectorfacility+0x00(SB)/8, $·atanTrampolineSetup(SB)


TEXT ·Atan2(SB),NOSPLIT,$0
	MOVD    ·atan2vectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·atan2TrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·atan2vectorfacility+0x00(SB), R1
	MOVD    $·atan2(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atan2(SB)
vectorimpl:
	MOVD    $·atan2vectorfacility+0x00(SB), R1
	MOVD    $·atan2Asm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·atan2Asm(SB)

GLOBL ·atan2vectorfacility+0x00(SB), NOPTR, $8
DATA ·atan2vectorfacility+0x00(SB)/8, $·atan2TrampolineSetup(SB)


TEXT ·Cbrt(SB),NOSPLIT,$0
	MOVD    ·cbrtvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·cbrtTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·cbrtvectorfacility+0x00(SB), R1
	MOVD    $·cbrt(SB), R2
	MOVD    R2, 0(R1)
	BR      ·cbrt(SB)
vectorimpl:
	MOVD    $·cbrtvectorfacility+0x00(SB), R1
	MOVD    $·cbrtAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·cbrtAsm(SB)

GLOBL ·cbrtvectorfacility+0x00(SB), NOPTR, $8
DATA ·cbrtvectorfacility+0x00(SB)/8, $·cbrtTrampolineSetup(SB)


TEXT ·Log(SB),NOSPLIT,$0
	MOVD    ·logvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·logTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·logvectorfacility+0x00(SB), R1
	MOVD    $·log(SB), R2
	MOVD    R2, 0(R1)
	BR      ·log(SB)
vectorimpl:
	MOVD    $·logvectorfacility+0x00(SB), R1
	MOVD    $·logAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·logAsm(SB)

GLOBL ·logvectorfacility+0x00(SB), NOPTR, $8
DATA ·logvectorfacility+0x00(SB)/8, $·logTrampolineSetup(SB)


TEXT ·Tan(SB),NOSPLIT,$0
	MOVD    ·tanvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·tanTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·tanvectorfacility+0x00(SB), R1
	MOVD    $·tan(SB), R2
	MOVD    R2, 0(R1)
	BR      ·tan(SB)
vectorimpl:
	MOVD    $·tanvectorfacility+0x00(SB), R1
	MOVD    $·tanAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·tanAsm(SB)

GLOBL ·tanvectorfacility+0x00(SB), NOPTR, $8
DATA ·tanvectorfacility+0x00(SB)/8, $·tanTrampolineSetup(SB)

TEXT ·Exp(SB),NOSPLIT,$0
	MOVD    ·expvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·expTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·expvectorfacility+0x00(SB), R1
	MOVD    $·exp(SB), R2
	MOVD    R2, 0(R1)
	BR      ·exp(SB)
vectorimpl:
	MOVD    $·expvectorfacility+0x00(SB), R1
	MOVD    $·expAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·expAsm(SB)

GLOBL ·expvectorfacility+0x00(SB), NOPTR, $8
DATA ·expvectorfacility+0x00(SB)/8, $·expTrampolineSetup(SB)


TEXT ·Expm1(SB),NOSPLIT,$0
	MOVD    ·expm1vectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·expm1TrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·expm1vectorfacility+0x00(SB), R1
	MOVD    $·expm1(SB), R2
	MOVD    R2, 0(R1)
	BR      ·expm1(SB)
vectorimpl:
	MOVD    $·expm1vectorfacility+0x00(SB), R1
	MOVD    $·expm1Asm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·expm1Asm(SB)

GLOBL ·expm1vectorfacility+0x00(SB), NOPTR, $8
DATA ·expm1vectorfacility+0x00(SB)/8, $·expm1TrampolineSetup(SB)


TEXT ·Pow(SB),NOSPLIT,$0
	MOVD    ·powvectorfacility+0x00(SB),R1
	BR      (R1)

TEXT ·powTrampolineSetup(SB),NOSPLIT, $0
	MOVB    ·hasVX(SB), R1
	CMPBEQ  R1, $1, vectorimpl      // vectorfacility = 1, vector supported
	MOVD    $·powvectorfacility+0x00(SB), R1
	MOVD    $·pow(SB), R2
	MOVD    R2, 0(R1)
	BR      ·pow(SB)
vectorimpl:
	MOVD    $·powvectorfacility+0x00(SB), R1
	MOVD    $·powAsm(SB), R2
	MOVD    R2, 0(R1)
	BR      ·powAsm(SB)

GLOBL ·powvectorfacility+0x00(SB), NOPTR, $8
DATA ·powvectorfacility+0x00(SB)/8, $·powTrampolineSetup(SB)