forked from pool/strace
26 lines
447 B
Diff
26 lines
447 B
Diff
--- util.c
|
|
+++ util.c
|
|
@@ -1137,6 +1137,22 @@
|
|
return;
|
|
}
|
|
tprintf("[%08lx] ", pc);
|
|
+#elif defined(S390X)
|
|
+ long pc;
|
|
+
|
|
+ if (upeek(tcp->pid, PT_PSWADDR, &pc) < 0) {
|
|
+ tprintf("[????????????????] ");
|
|
+ return;
|
|
+ }
|
|
+ tprintf("[%016lx] ", pc);
|
|
+#elif defined(S390)
|
|
+ long pc;
|
|
+
|
|
+ if (upeek(tcp->pid, PT_PSWADDR, &pc) < 0) {
|
|
+ tprintf("[????????] ");
|
|
+ return;
|
|
+ }
|
|
+ tprintf("[%08lx] ", pc);
|
|
#endif /* !architecture */
|
|
#endif /* LINUX */
|
|
|