//===-- orc_rt_elfnix_tls_systemz.s -------------------------------*- ASM -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
// This file is a part of the ORC runtime support library.
//
//===----------------------------------------------------------------------===//

// The special thing about the s390 TLS ABI is that we do not have the
// standard __tls_get_addr function but the __tls_get_offset function
// which differs in two important aspects:
// 1) __tls_get_offset gets a got offset instead of a pointer to the
//    tls_index structure
// 2) __tls_get_offset returns the offset of the requested variable to
//    the thread descriptor instead of a pointer to the variable.

// The content of this file is systemz-only

#if defined(__s390x__)

	.text
	// returns offset of TLV from TP in %r2.
	.globl	___orc_rt_elfnix_tls_get_offset
___orc_rt_elfnix_tls_get_offset:
	stmg	%r14, %r15, 112(%r15)
	aghi	%r15, -160
	// Pass pointer to tls_index.
	la 	%r2, 0(%r2, %r12)
	brasl	%r14, __orc_rt_elfnix_tls_get_addr_impl
	// Return offset from TP.
	ear 	%r0, %a0
	sllg	%r0, %r0, 32
	ear 	%r0, %a1
	sgr 	%r2, %r0
	lmg 	%r14, %r15, 272(%r15)
	br	%r14

#endif // defined(__s390x__)