From: Roland McGrath <roland@redhat.com>
Date: Mon, 16 Dec 2002 20:40:48 +0000 (+0000)
Subject: 2002-12-15  Roland McGrath  <roland@redhat.com>
X-Git-Tag: v4.5.18~949
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3bb9c3d3585bb08f0afb061839e0ea3792bfb41a;p=strace

2002-12-15  Roland McGrath  <roland@redhat.com>

	* process.c (setarg) [POWERPC]: Support it.
---

diff --git a/process.c b/process.c
index c6d5ee2d..6a68316d 100644
--- a/process.c
+++ b/process.c
@@ -592,6 +592,17 @@ setarg(tcp, argnum)
 		if (errno)
 			return -1;
 	}
+#elif defined(POWERPC)
+#ifndef PT_ORIG_R3
+#define PT_ORIG_R3 34
+#endif
+	{
+		ptrace(PTRACE_POKEUSER, tcp->pid,
+		       (char*)((argnum==0 ? PT_ORIG_R3 : argnum+PT_R3)*4),
+		       tcp->u_arg[argnum]);
+		if (errno)
+			return -1;
+	}
 #elif defined(MIPS)
 	{
 		errno = 0;