aix-toc-1a.s 281 B

1234567891011121314151617181920212223
  1. .macro loadtoc
  2. .toc
  3. .tc sym\@[TC], \@
  4. .csect .f1[PR]
  5. .if size == 32
  6. lwz 1,sym\@[TC](2)
  7. .else
  8. ld 1,sym\@[TC](2)
  9. .endif
  10. .endm
  11. .globl .f1
  12. .csect .f1[PR]
  13. .f1:
  14. .rept 0x7ffc * 8 / size
  15. loadtoc
  16. .endr
  17. .globl f1
  18. .csect f1[DS]
  19. f1:
  20. .long .f1[PR],TOC[TC0],0