glebfm/strace
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source 
* util.c (getpc) [S390 || S390X]: Implement it.
	Patch by David Wilder <wilder@us.ibm.com>.
This commit is contained in:
Roland McGrath 2005-02-02 02:48:53 +00:00
parent be4eeb95f5
commit eac26fc53e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
util.c
View File

@ -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;