old-cross-binutils/ld/testsuite/ld-alpha/tlspic1.s
2003-01-22 00:41:59 +00:00

87 lines
1.7 KiB
ArmAsm

.section ".tdata", "awT", @progbits
.globl sg1, sg2, sg3, sg4, sg5, sg6, sg7, sg8
.globl sh1, sh2, sh3, sh4, sh5, sh6, sh7, sh8
.hidden sh1, sh2, sh3, sh4, sh5, sh6, sh7, sh8
sg1: .long 17
sg2: .long 18
sg3: .long 19
sg4: .long 20
sg5: .long 21
sg6: .long 22
sg7: .long 23
sg8: .long 24
sl1: .long 65
sl2: .long 66
sl3: .long 67
sl4: .long 68
sl5: .long 69
sl6: .long 70
sl7: .long 71
sl8: .long 72
sh1: .long 257
sh2: .long 258
sh3: .long 259
sh4: .long 260
sh5: .long 261
sh6: .long 262
sh7: .long 263
sh8: .long 264
.text
.globl fn1
.ent fn1
fn1:
.frame $sp, 16, $26, 0
ldgp $gp, 0($27)
subq $sp, 16, $sp
stq $26, 0($sp)
stq $9, 8($sp)
.prologue 1
rduniq
mov $0, $9
/* GD */
lda $16, sg1($gp) !tlsgd!1
ldq $27, __tls_get_addr($gp) !literal!1
jsr $26, ($27), __tls_get_addr !lituse_tlsgd!1
ldgp $gp, 0($26)
/* GD against hidden symbol */
lda $16, sh2($gp) !tlsgd!2
ldq $27, __tls_get_addr($gp) !literal!2
jsr $26, ($27), __tls_get_addr !lituse_tlsgd!2
ldgp $gp, 0($26)
/* LD */
lda $16, sl1($gp) !tlsldm!3
ldq $27, __tls_get_addr($gp) !literal!3
jsr $26, ($27), __tls_get_addr !lituse_tlsldm!3
ldgp $gp, 0($26)
lda $1, sl1+1($0) !dtprel
/* LD with 4 variables */
lda $16, sh1($gp) !tlsldm!4
ldq $27, __tls_get_addr($gp) !literal!4
jsr $26, ($27), __tls_get_addr !lituse_tlsldm!4
ldgp $gp, 0($26)
lda $1, sh1($0) !dtprel
lda $1, sH1+2($0) !dtprel
ldah $1, sh5+3($0) !dtprelhi
lda $1, sh5+3($1) !dtprello
ldq $1, sH5+1($gp) !gotdtprel
addq $1, $0, $1
/* IE against global */
ldq $1, sg2($gp) !gottprel
addq $1, $9, $1
/* IE against local and hidden */
ldq $1, sl2($gp) !gottprel
ldq $2, sh2($gp) !gottprel
addq $1, $9, $1
addq $2, $9, $2
ldq $26, 0($sp)
addq $sp, 16, $sp
ret
.end fn1