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 5fa9aa770212dc85e4695d408f437ca0da99891f..ee03338ad05b7327395a720f2838f8b5c865914c 100644 (file)
--- 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;