From: Roland McGrath <roland@redhat.com>
Date: Wed, 2 Feb 2005 02:48:53 +0000 (+0000)
Subject: 2005-02-01  Roland McGrath  <roland@redhat.com>
X-Git-Tag: v4.5.18~468
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=eac26fc53eaf2cd52c1c531d1d3817a66b8b2180;p=strace

2005-02-01  Roland McGrath  <roland@redhat.com>

	* util.c (getpc) [S390 || S390X]: Implement it.
	Patch by David Wilder <wilder@us.ibm.com>.
---

diff --git a/util.c b/util.c
index 5fa9aa77..ee03338a 100644
--- a/util.c
+++ b/util.c
@@ -1050,6 +1050,19 @@ struct tcb *tcp;
 		return;
 	}
 	tprintf("[%08lx] ", eip);
+
+#elif defined(S390) || defined(S390X)
+         long psw;
+         if(upeek(tcp->pid,PT_PSWADDR,&psw) < 0) {
+                 tprintf("[????????] ");
+                 return;
+         }
+#ifdef S390
+         tprintf("[%08lx] ", psw);
+#elif S390X
+       tprintf("[%16lx] ", psw);
+#endif
+
 #elif defined(X86_64)
 	long rip;