1/*-
2 * SPDX-License-Identifier: BSD-4-Clause
3 *
4 * Copyright (C) 1995, 1996 Wolfgang Solfrank.
5 * Copyright (C) 1995, 1996 TooLs GmbH.
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 *    must display the following acknowledgement:
18 *	This product includes software developed by TooLs GmbH.
19 * 4. The name of TooLs GmbH may not be used to endorse or promote products
20 *    derived from this software without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY TOOLS GMBH ``AS IS'' AND ANY EXPRESS OR
23 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25 * IN NO EVENT SHALL TOOLS GMBH BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
26 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
27 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
28 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 *
33 *	$NetBSD: asm.h,v 1.6.18.1 2000/07/25 08:37:14 kleink Exp $
34 */
35
36#ifndef _MACHINE_ASM_H_
37#define	_MACHINE_ASM_H_
38
39#include <sys/cdefs.h>
40
41#if defined(PIC) && !defined(__powerpc64__)
42#define	PIC_PROLOGUE	XXX
43#define	PIC_EPILOGUE	XXX
44#define	PIC_PLT(x)	x@plt
45#ifdef	__STDC__
46#define	PIC_GOT(x)	XXX
47#else	/* not __STDC__ */
48#define	PIC_GOT(x)	XXX
49#endif	/* __STDC__ */
50#else
51#define	PIC_PROLOGUE
52#define	PIC_EPILOGUE
53#define	PIC_PLT(x)	x
54#define PIC_GOT(x)	x
55#endif
56
57#define	CNAME(csym)		csym
58#define	ASMNAME(asmsym)		asmsym
59#ifdef __powerpc64__
60#define	HIDENAME(asmsym)	__CONCAT(_,asmsym)
61#else
62#define	HIDENAME(asmsym)	__CONCAT(.,asmsym)
63#endif
64
65#if !defined(_CALL_ELF) || _CALL_ELF == 1
66#ifdef _KERNEL
67/* ELFv1 kernel uses global dot symbols */
68#define	DOT_LABEL(name)		__CONCAT(.,name)
69#define	TYPE_ENTRY(name)	.size	name,24; \
70				.type	DOT_LABEL(name),@function; \
71				.globl	DOT_LABEL(name);
72#define	END_SIZE(name)		.size	DOT_LABEL(name),.-DOT_LABEL(name);
73#else /* !_KERNEL */
74/* ELFv1 user code uses local function entry points */
75#define	DOT_LABEL(name)		__CONCAT(.L.,name)
76#define	TYPE_ENTRY(name)	.type	name,@function;
77#define	END_SIZE(name)		.size	name,.-DOT_LABEL(name);
78#endif /* _KERNEL */
79#else
80/* ELFv2 doesn't have any of this complication */
81#define	DOT_LABEL(name)		name
82#define	TYPE_ENTRY(name)	.type	name,@function;
83#define	END_SIZE(name)		.size	name,.-DOT_LABEL(name);
84#endif
85
86#define	_GLOBAL(name) \
87	.data; \
88	.p2align 2; \
89	.globl	name; \
90	name:
91
92#ifdef __powerpc64__
93#define TOC_NAME_FOR_REF(name)	__CONCAT(.L,name)
94#define	TOC_REF(name)	TOC_NAME_FOR_REF(name)@toc
95#define TOC_ENTRY(name) \
96	.section ".toc","aw"; \
97	TOC_NAME_FOR_REF(name): \
98        .tc name[TC],name
99#endif
100
101#ifdef __powerpc64__
102
103#if !defined(_CALL_ELF) || _CALL_ELF == 1
104#define	_ENTRY(name) \
105	.section ".text"; \
106	.p2align 2; \
107	.globl	name; \
108	.section ".opd","aw"; \
109	.p2align 3; \
110name: \
111	.quad	DOT_LABEL(name),.TOC.@tocbase,0; \
112	.previous; \
113	.p2align 4; \
114	TYPE_ENTRY(name) \
115DOT_LABEL(name): \
116	.cfi_startproc
117#define	_NAKED_ENTRY(name)	_ENTRY(name)
118#else
119#define	_ENTRY(name) \
120	.text; \
121	.p2align 4; \
122	.globl	name; \
123	.type	name,@function; \
124name: \
125	.cfi_startproc; \
126	addis	%r2, %r12, (.TOC.-name)@ha; \
127	addi	%r2, %r2, (.TOC.-name)@l; \
128	.localentry name, .-name;
129
130/* "Naked" function entry.  No TOC prologue for ELFv2. */
131#define	_NAKED_ENTRY(name) \
132	.text; \
133	.p2align 4; \
134	.globl	name; \
135	.type	name,@function; \
136name: \
137	.cfi_startproc; \
138	.localentry name, .-name;
139#endif
140
141#define	_END(name) \
142	.cfi_endproc; \
143	.long	0; \
144	.byte	0,0,0,0,0,0,0,0; \
145	END_SIZE(name)
146
147#define	LOAD_ADDR(reg, var) \
148	lis	reg, var@highest; \
149	ori	reg, reg, var@higher; \
150	rldicr	reg, reg, 32, 31; \
151	oris	reg, reg, var@h; \
152	ori	reg, reg, var@l;
153#else /* !__powerpc64__ */
154#define	_ENTRY(name) \
155	.text; \
156	.p2align 4; \
157	.globl	name; \
158	.type	name,@function; \
159name: \
160	.cfi_startproc
161#define	_END(name) \
162	.cfi_endproc; \
163	.size	name, . - name
164
165#define _NAKED_ENTRY(name)	_ENTRY(name)
166
167#define	LOAD_ADDR(reg, var) \
168	lis	reg, var@ha; \
169	ori	reg, reg, var@l;
170#endif /* __powerpc64__ */
171
172#if defined(PROF) || (defined(_KERNEL) && defined(GPROF))
173# ifdef __powerpc64__
174#   define	_PROF_PROLOGUE	mflr 0;					\
175				std 3,48(1);				\
176				std 4,56(1);				\
177				std 5,64(1);				\
178				std 0,16(1);				\
179				stdu 1,-112(1);				\
180				bl _mcount;				\
181				nop;					\
182				ld 0,112+16(1);				\
183				ld 3,112+48(1);				\
184				ld 4,112+56(1);				\
185				ld 5,112+64(1);				\
186				mtlr 0;					\
187				addi 1,1,112
188# else
189#   define	_PROF_PROLOGUE	mflr 0; stw 0,4(1); bl _mcount
190# endif
191#else
192# define	_PROF_PROLOGUE
193#endif
194
195#define	ASEND(y)	_END(ASMNAME(y))
196#define	ASENTRY(y)	_ENTRY(ASMNAME(y)); _PROF_PROLOGUE
197#define	END(y)		_END(CNAME(y))
198#define	ENTRY(y)	_ENTRY(CNAME(y)); _PROF_PROLOGUE
199#define	GLOBAL(y)	_GLOBAL(CNAME(y))
200
201#define	ASENTRY_NOPROF(y)	_ENTRY(ASMNAME(y))
202#define	ENTRY_NOPROF(y)		_ENTRY(CNAME(y))
203
204/* Load NIA without affecting branch prediction */
205#define	LOAD_LR_NIA	bcl	20, 31, .+4
206
207/*
208 * Magic sequence to return to native endian.
209 * Overwrites r0 and r11.
210 *
211 * The encoding of the instruction "tdi 0, %r0, 0x48" in opposite endian
212 * happens to be "b . + 8". This is useful because we can write a sequence
213 * of instructions that can execute in either endian.
214 *
215 * Use a sequence of handcoded instructions that switches contexts to the
216 * instruction following the sequence, but with the correct PSL_LE bit.
217 *
218 * The same sequence works for both BE and LE because the xori will flip
219 * the bit to the other state, and the code only runs when running in the
220 * wrong endian.
221 *
222 * This sequence is NMI-reentrant.
223 *
224 * Do not change the length of this sequence without looking at the users,
225 * this is used in size-constrained places like the reset vector!
226 */
227#define	RETURN_TO_NATIVE_ENDIAN						  \
228	tdi	0, %r0, 0x48;	/* Endian swapped: b . + 8		*/\
229	b	1f;		/* Will fall through to here if correct */\
230	.long	0xa600607d;	/* mfmsr %r11				*/\
231	.long	0x00000038;	/* li %r0, 0				*/\
232	.long	0x6401617d;	/* mtmsrd %r0, 1 (L=1 EE,RI bits only)	*/\
233	.long	0x01006b69;	/* xori %r11, %r11, 0x1 (PSL_LE)	*/\
234	.long	0xa602087c;	/* mflr %r0				*/\
235	.long	0x05009f42;	/* LOAD_LR_NIA				*/\
236	.long	0xa6037b7d;	/* 0: mtsrr1 %r11			*/\
237	.long	0xa602687d;	/* mflr	%r11				*/\
238	.long	0x18006b39;	/* addi	%r11, %r11, (1f - 0b)		*/\
239	.long	0xa6037a7d;	/* mtsrr0 %r11				*/\
240	.long	0xa603087c;	/* mtlr %r0				*/\
241	.long	0x2400004c;	/* rfid					*/\
2421:	/* RETURN_TO_NATIVE_ENDIAN */
243
244#define	ASMSTR		.asciz
245
246#define	RCSID(x)	.text; .asciz x
247
248#undef __FBSDID
249#if !defined(lint) && !defined(STRIP_FBSDID)
250#define __FBSDID(s)	.ident s
251#else
252#define __FBSDID(s)	/* nothing */
253#endif /* not lint and not STRIP_FBSDID */
254
255#define	WEAK_REFERENCE(sym, alias)				\
256	.weak alias;						\
257	.equ alias,sym
258
259#ifdef __STDC__
260#define	WARN_REFERENCES(_sym,_msg)				\
261	.section .gnu.warning. ## _sym ; .ascii _msg ; .text
262#else
263#define	WARN_REFERENCES(_sym,_msg)				\
264	.section .gnu.warning./**/_sym ; .ascii _msg ; .text
265#endif /* __STDC__ */
266
267#endif /* !_MACHINE_ASM_H_ */
268