meesbs
/
tinycc
forked from Mirrors/tinycc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tccrun: win32: improve rt_get_caller_pc

master
grischka 2010-09-15 13:43:25 +02:00
parent d59bd8be8e
commit 08083ddb21
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tccrun.c
View File

@ -612,36 +612,31 @@ static void win64_add_function_table(TCCState *s1)
}
#endif
#ifdef _WIN64
#define Eip Rip
#define Ebp Rbp
#endif
/* return the PC at frame level 'level'. Return non zero if not found */
static int rt_get_caller_pc(uplong *paddr, CONTEXT *uc, int level)
{
uplong fp;
uplong fp, pc;
int i;
if (level == 0) {
*paddr = uc->Eip;
return 0;
} else {
fp = uc->Ebp;
for(i=1;i<level;i++) {
#ifdef _WIN64
pc = uc->Rip;
fp = uc->Rbp;
#else
pc = uc->Eip;
fp = uc->Ebp;
#endif
if (level > 0) {
for(i=1;i<level;i++) {
/* XXX: check address validity with program info */
if (fp <= 0x1000 || fp >= 0xc0000000)
return -1;
fp = ((uplong*)fp)[0];
}
*paddr = ((uplong*)fp)[1];
return 0;
pc = ((uplong*)fp)[1];
}
*paddr = pc;
return 0;
}
#undef Eip
#undef Ebp
#endif /* _WIN32 */
#endif /* CONFIG_TCC_BACKTRACE */
/* ------------------------------------------------------------- */