| .globl bar[TL] | |
| .csect bar[TL] | |
| .long 1 | |
| .toc | |
| .tc gd[TC],bar[TL] | |
| .tc .gd[TC],bar[TL]@m | |
| .tc ld[TC],bar[TL]@ld | |
| .tc mh[TC],mh[TC]@ml | |
| .tc ie[TC],bar[TL]@ie | |
| .tc le[TC],bar[TL]@le | |
| .globl foo | |
| .globl .foo | |
| .csect foo[DS],3 | |
| foo: | |
| .if size == 32 | |
| .long .foo, TOC[tc0], 0 | |
| .else | |
| .llong .foo, TOC[tc0], 0 | |
| .endif | |
| .csect foo[PR] | |
| .foo: | |
| #GD | |
| .if size == 32 | |
| lwz 4, gd[TC](2) | |
| lwz 3, .gd[TC](2) | |
| .else | |
| ld 4, gd[TC](2) | |
| ld 3, .gd[TC](2) | |
| .endif | |
| bla __tls_get_addr | |
| #LD | |
| .if size == 32 | |
| lwz 3, mh[TC](2) | |
| .else | |
| ld 3, mh[TC](2) | |
| .endif | |
| bla __tls_get_mod | |
| lwz 4, ld[TC](2) | |
| add 5,3,4 | |
| #IE | |
| .if size == 32 | |
| bla __get_tpointer | |
| lwz 4, ie[TC](2) | |
| add 5,3,4 | |
| .else | |
| ld 4, ie[TC](2) | |
| add 5,4,13 | |
| .endif | |
| #LE | |
| .if size == 32 | |
| bla __get_tpointer | |
| lwz 4, le[TC](2) | |
| add 5,3,4 | |
| .else | |
| ld 4, le[TC](2) | |
| add 5,3,13 | |
| .endif | |
| .rename mh[TC], "_$TLSML" # Symbol for the module handle |