[deliverable/binutils-gdb.git] / ld / testsuite / ld-mips-elf / mips16-pic-1.inc

	# Declare a function called NAME and an __fn_NAME stub for it.
	# Make the stub use la_TYPE to load the target address into $2.
	.macro	stub,name,type
	.set	nomips16
	.section .mips16.fn.\name, "ax", @progbits
	.ent	__fn_\name
__fn_\name:
	la_\type \name
	mfc1	$4,$f12
	jr	$2
	nop
	.end	__fn_\name

	.set	mips16
	.text
	.ent	\name
\name:
__fn_local_\name:
	jr	$31
	nop
	.end	\name
	.endm

	# Like stub, but ensure NAME is a local symbol.
	.macro	lstub,name,type
	stub	\name, \type
	.equ	local_\name,1
	.endm

	# Like stub, but ensure NAME is a hidden symbol.
	.macro	hstub,name,type
	.globl	\name
	.hidden	\name
	stub	\name, \type
	.endm

	# Like lstub, but make the MIPS16 function global rather than local.
	.macro	gstub,name,type
	.globl	\name
	stub	\name, \type
	.endm

	# Use an absolute sequence to load NAME into a register.
	.macro	la_noshared,name
	lui	$2,%hi(\name)
	addiu	$2,$2,%lo(\name)
	.endm

	# Use the normal PIC sequence to load __fn_local_NAME into $2
	# and emit a dummy relocation against NAME.  This macro is always
	# used at the start of a function.
	.macro	la_shared,name
	.reloc	0,R_MIPS_NONE,\name
	.cpload	$25
	la	$2,__fn_local_\name
	.endm

	# Use TYPE (either LSTUB, HSTUB or GSTUB) to define functions
	# called a_NAME and b_NAME.  The former uses absolute accesses
	# and the latter uses PIC accesses.
	.macro	decl,name,type
	\type	a_\name, noshared
	\type	b_\name, shared
	.endm

	# Emit the MIPS16 PIC sequence for setting $28 from $25.
	# Make the value of $25 available in $2 as well.
	.macro	cpload_mips16
	li	$2,%hi(_gp_disp)
	addiu	$3,$pc,%lo(_gp_disp)
	sll	$2,16
	addu	$2,$2,$3
	move	$28,$2
	.endm

	# Likewise, but for non-MIPS16 code.
	.macro	cpload_nomips16
	.cpload	$25
	move	$2,$28
	.endm

	# Start a PIC function in ISA mode MODE, which is either "mips16"
	# or "nomips16".
	.macro	pic_prologue,mode
	cpload_\mode
	addiu	$sp,$sp,-32
	sw	$2,16($sp)
	sw	$31,20($sp)
	.endm

	# Use a PIC function to call NAME.
	.macro	pic_call,name,mode
	.ifdef	local_\name
	.ifc	\mode,mips16
	lw	$2,%got(__fn_local_\name)($2)
	addiu	$2,%lo(__fn_local_\name)
	.else
	lw	$2,%got(\name)($2)
	addiu	$2,%lo(\name)
	.endif
	.else
	lw	$2,%call16(\name)($2)
	.endif
	jalr	$2
	move	$25,$2
	lw	$2,16($sp)
	move	$28,$2
	.endm

	# Finish a PIC function started by pic_prologue.
	.macro	pic_epilogue
	lw	$2,20($sp)
	jr	$2
	addiu	$sp,$sp,32
	.endm

	# Use PIC %call16 sequences to call a_NAME and b_NAME.
	# MODE selects the ISA mode of the code: either "mips16"
	# or "nomips16".
	.macro	callpic,name,mode
	.text
	.set	\mode
	.ent	callpic_\name\()_\mode
callpic_\name\()_\mode:
	pic_prologue \mode
	pic_call     a_\name,\mode
	pic_call     b_\name,\mode
	pic_epilogue
	.end	callpic_\name\()_\mode
	.endm

	# Use absolute jals to call a_NAME and b_NAME.  MODE selects the
	# ISA mode of the code: either "mips16" or "nomips16".
	.macro	jals,name,mode
	.text
	.set	\mode
	.ent	jals_\name\()_\mode
jals_\name\()_\mode:
	.option	pic0
	jal	a_\name
	nop

	jal	b_\name
	nop
	.option	pic2
	.end	jals_\name\()_\mode
	.endm
Commit	Line	Data
738e5348	1	# Declare a function called NAME and an __fn_NAME stub for it.
9aff4b7a	2	# Make the stub use la_TYPE to load the target address into $2.
738e5348 RS	3	.macro stub,name,type
	4	.set nomips16
	5	.section .mips16.fn.\name, "ax", @progbits
	6	.ent __fn_\name
	7	__fn_\name:
	8	la_\type \name
	9	mfc1 $4,$f12
	10	jr $2
	11	nop
	12	.end __fn_\name
	13
	14	.set mips16
	15	.text
	16	.ent \name
	17	\name:
	18	__fn_local_\name:
	19	jr $31
	20	nop
	21	.end \name
	22	.endm
	23
	24	# Like stub, but ensure NAME is a local symbol.
	25	.macro lstub,name,type
	26	stub \name, \type
	27	.equ local_\name,1
	28	.endm
	29
	30	# Like stub, but ensure NAME is a hidden symbol.
	31	.macro hstub,name,type
	32	.globl \name
	33	.hidden \name
	34	stub \name, \type
	35	.endm
	36
	37	# Like lstub, but make the MIPS16 function global rather than local.
	38	.macro gstub,name,type
	39	.globl \name
	40	stub \name, \type
	41	.endm
	42
	43	# Use an absolute sequence to load NAME into a register.
	44	.macro la_noshared,name
	45	lui $2,%hi(\name)
	46	addiu $2,$2,%lo(\name)
	47	.endm
	48
	49	# Use the normal PIC sequence to load __fn_local_NAME into $2
	50	# and emit a dummy relocation against NAME. This macro is always
	51	# used at the start of a function.
	52	.macro la_shared,name
	53	.reloc 0,R_MIPS_NONE,\name
	54	.cpload $25
	55	la $2,__fn_local_\name
	56	.endm
	57
	58	# Use TYPE (either LSTUB, HSTUB or GSTUB) to define functions
	59	# called a_NAME and b_NAME. The former uses absolute accesses
	60	# and the latter uses PIC accesses.
	61	.macro decl,name,type
	62	\type a_\name, noshared
	63	\type b_\name, shared
	64	.endm
	65
	66	# Emit the MIPS16 PIC sequence for setting $28 from $25.
67	# Make the value of $25 available in $2 as well.
68	.macro cpload_mips16
69	li $2,%hi(_gp_disp)
70	addiu $3,$pc,%lo(_gp_disp)
71	sll $2,16
72	addu $2,$2,$3
73	move $28,$2
74	.endm
75
76	# Likewise, but for non-MIPS16 code.
77	.macro cpload_nomips16
78	.cpload $25
79	move $2,$28
80	.endm
81
82	# Start a PIC function in ISA mode MODE, which is either "mips16"
83	# or "nomips16".
84	.macro pic_prologue,mode
85	cpload_\mode
86	addiu $sp,$sp,-32
87	sw $2,16($sp)
88	sw $31,20($sp)
89	.endm
90
91	# Use a PIC function to call NAME.
92	.macro pic_call,name,mode
93	.ifdef local_\name
94	.ifc \mode,mips16
95	lw $2,%got(__fn_local_\name)($2)
96	addiu $2,%lo(__fn_local_\name)
97	.else
98	lw $2,%got(\name)($2)
99	addiu $2,%lo(\name)
100	.endif
101	.else
102	lw $2,%call16(\name)($2)
103	.endif
104	jalr $2
105	move $25,$2
106	lw $2,16($sp)
107	move $28,$2
108	.endm
109
110	# Finish a PIC function started by pic_prologue.
111	.macro pic_epilogue
112	lw $2,20($sp)
113	jr $2
114	addiu $sp,$sp,32
115	.endm
116
117	# Use PIC %call16 sequences to call a_NAME and b_NAME.
118	# MODE selects the ISA mode of the code: either "mips16"
119	# or "nomips16".
120	.macro callpic,name,mode
121	.text
122	.set \mode
123	.ent callpic_\name\()_\mode
124	callpic_\name\()_\mode:
125	pic_prologue \mode
126	pic_call a_\name,\mode
127	pic_call b_\name,\mode
128	pic_epilogue
129	.end callpic_\name\()_\mode
130	.endm
131
132	# Use absolute jals to call a_NAME and b_NAME. MODE selects the
133	# ISA mode of the code: either "mips16" or "nomips16".
134	.macro jals,name,mode
135	.text
136	.set \mode
137	.ent jals_\name\()_\mode
138	jals_\name\()_\mode:
139	.option pic0
140	jal a_\name
141	nop
142
143	jal b_\name
144	nop
145	.option pic2
146	.end jals_\name\()_\mode
147	.endm