Plan 9 from Bell Labs’s /usr/web/sources/contrib/stallion/root/arm/go/src/math/stubs_s390x.s

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


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


Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].