old-cross-binutils/ld/testsuite/ld-s390/tlsbin_64.s
H.J. Lu d2c252d75a 2004-10-01 H.J. Lu <hongjiu.lu@intel.com>
* ld-powerpc/tls.s: Don't set tls type for undefined syms.
	* ld-powerpc/tls32.s: Likewise.
	* ld-powerpc/tlstoc.s: Likewise.
	* ld-s390/tlsbin.s: Likewise.
	* ld-s390/tlsbin_64.s: Likewise.
	* ld-s390/tlsbinpic.s: Likewise.
	* ld-s390/tlsbinpic_64.s: Likewise.
	* ld-s390/tlspic1.s: Likewise.
	* ld-s390/tlspic1_64.s: Likewise.
	* ld-sparc/tlssunbin32.s: Likewise.
	* ld-sparc/tlssunbinpic32.s: Likewise.
	* ld-sparc/tlssunnopic32.s: Likewise.
	* ld-sparc/tlssunpic32.s: Likewise.
2004-10-01 20:11:40 +00:00

75 lines
1.3 KiB
ArmAsm

.section ".tbss", "awT", @nobits
.globl bg1, bg2, bg3, bg4, bg5, bg6, bg7, bg8
bg1: .space 4
bg2: .space 4
bg3: .space 4
bg4: .space 4
bg5: .space 4
bg6: .space 4
bg7: .space 4
bg8: .space 4
bl1: .space 4
bl2: .space 4
bl3: .space 4
bl4: .space 4
bl5: .space 4
bl6: .space 4
bl7: .space 4
bl8: .space 4
.text
.globl _start
.type _start,@function
_start:
/* Function prolog */
stm %r6,%r14,24(%r15)
bras %r13,.LTN1
/* Literal pool */
.LT1:
.LC0:
.quad sG6@indntpoff
.LC1:
.quad bg6@indntpoff
.LC2:
.quad bl6@indntpoff
.LC3:
.quad sh6@indntpoff
.LC4:
.quad sg3@indntpoff
.LTN1:
/* Function prolog */
lgr %r14,%r15
aghi %r15,-160
stg %r14,0(%r14)
/* Extract TCB */
ear %r9,%a0
sllg %r9,%r4,32
ear %r9,%a1
/* IE against global var */
lg %r3,.LC0-.LT1(%r13)
lg %r3,0(%r3,%r12):tls_load:sG6
la %r3,0(%r3,%r9)
/* IE -> LE against global var defined in exec */
lg %r3,.LC1-.LT1(%r13)
lg %r4,0(%r3,%r12):tls_load:bg6
la %r5,0(%r4,%r9)
/* IE -> LE against local var */
lg %r3,.LC2-.LT1(%r13)
lg %r4,0(%r3,%r12):tls_load:bl6
la %r5,0(%r4,%r9)
/* IE -> LE against hidden but not local var */
lg %r3,.LC3-.LT1(%r13)
lg %r4,0(%r3,%r12):tls_load:sh6
la %r5,0(%r4,%r9)
/* LE, global var defined in exec */
lg %r4,.LC4-.LT1(%r13)
la %r5,0(%r4,%r9)
/* Function epilog */
lmg %r6,%r14,208(%r15)
br %r14