4 # misc.s - miscellaneous assembler routines for the rs/6000
8 # get_toc - return the current TOC
15 .tbtag 0x0,0xc,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0
24 # get_ret_addr - return the caller's return address
26 .csect .get_ret_addr[PR]
27 .globl .get_ret_addr[PR]
28 l 3, 0(1) # caller's saved stack pointer
29 l 3, 8(3) # caller's saved link register
32 .tbtag 0x0,0xc,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0
34 .csect get_ret_addr[DS]
35 .globl get_ret_addr[DS]
36 .long .get_ret_addr[PR]