1/*	$NetBSD: ptrace.S,v 1.3 2023/05/07 12:41:47 skrll Exp $	*/
2
3/*-
4 * Copyright (c) 1991, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Ralph Campbell.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 *    may be used to endorse or promote products derived from this software
20 *    without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35#include "SYS.h"
36
37#if defined(LIBC_SCCS) && !defined(lint)
38	RCSID("$NetBSD: ptrace.S,v 1.3 2023/05/07 12:41:47 skrll Exp $")
39#endif /* LIBC_SCCS and not lint */
40
41#define	XCALLFRAME_SIZ	(8 * SZREG)
42#define	XCALLFRAME_RA	(0 * SZREG)
43#define	XCALLFRAME_A0	(1 * SZREG)
44#define	XCALLFRAME_A1	(2 * SZREG)
45#define	XCALLFRAME_A2	(3 * SZREG)
46#define	XCALLFRAME_A3	(4 * SZREG)
47
48ENTRY(ptrace)
49#ifdef _REENTRANT
50	addi	sp, sp, -XCALLFRAME_SIZ
51	REG_S	ra, XCALLFRAME_RA(sp)
52	REG_S	a0, XCALLFRAME_A0(sp)
53	REG_S	a1, XCALLFRAME_A1(sp)
54	REG_S	a2, XCALLFRAME_A2(sp)
55	REG_S	a3, XCALLFRAME_A3(sp)
56
57	call	PLT(_C_LABEL(__errno))
58
59	INT_S	zero, 0(a0)
60
61	REG_L	a3, XCALLFRAME_A3(sp)
62	REG_L	a2, XCALLFRAME_A2(sp)
63	REG_L	a1, XCALLFRAME_A1(sp)
64	REG_L	a0, XCALLFRAME_A0(sp)
65	REG_L	ra, XCALLFRAME_RA(sp)
66	addi	sp, sp, XCALLFRAME_SIZ
67
68#else
69	auipc	t0, %hi(_C_LABEL(errno))
70	INT_S	zero, %lo(_C_LABEL(errno))(t0)
71#endif
72
73	SYSTRAP(ptrace)
74	JUMP_TO_CERROR()	/* error */
75	ret			/* success */
76END(ptrace)
77