160 lines
3.3 KiB
C++
160 lines
3.3 KiB
C++
#help_index "Debugging/Heap"
|
|
|
|
class CHeapLog
|
|
{
|
|
CHeapLog *next,*last;
|
|
U8 *addr;
|
|
U8 *caller1;
|
|
U8 *caller2;
|
|
U8 *caller3;
|
|
U8 *caller4;
|
|
};
|
|
|
|
class CHeapLogHash
|
|
{
|
|
CHeapLog *next,*last;
|
|
};
|
|
|
|
#define HEAPLOG_HASH_SIZE 0x1000
|
|
|
|
CTask *heaplog_task=NULL;
|
|
CHeapCtrl *heaplog_hc;
|
|
CHeapLogHash *heaplog_root=NULL;
|
|
|
|
|
|
U0 HeapLogTask(I64)
|
|
{
|
|
while (TRUE)
|
|
Yield;
|
|
}
|
|
|
|
U0 HeapLogMAlloc(U8 *addr)
|
|
{
|
|
CHeapLog *temph;
|
|
I64 i;
|
|
if (MHeapCtrl(addr)==heaplog_hc) {
|
|
temph=MAlloc(sizeof(CHeapLog),heaplog_task);
|
|
temph->addr=addr;
|
|
temph->caller1=Caller(2);
|
|
temph->caller2=Caller(3);
|
|
temph->caller3=Caller(4);
|
|
temph->caller4=Caller(5);
|
|
i=addr>>3 &(HEAPLOG_HASH_SIZE-1);
|
|
PushFD;
|
|
Cli;
|
|
while (LBts(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0))
|
|
Pause;
|
|
QueIns(temph,heaplog_root[i].last);
|
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
|
PopFD;
|
|
}
|
|
}
|
|
|
|
U0 HeapLogFree(U8 *addr)
|
|
{
|
|
I64 i;
|
|
CHeapLog *temph;
|
|
if (!addr) return;
|
|
if (MHeapCtrl(addr)==heaplog_hc) {
|
|
i=addr>>3 &(HEAPLOG_HASH_SIZE-1);
|
|
PushFD;
|
|
Cli;
|
|
while (LBts(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0))
|
|
Pause;
|
|
temph=heaplog_root[i].next;
|
|
while (temph!=&heaplog_root[i]) {
|
|
if (addr==temph->addr) {
|
|
QueRem(temph);
|
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
|
PopFD;
|
|
Free(temph);
|
|
return;
|
|
}
|
|
temph=temph->next;
|
|
}
|
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
|
PopFD;
|
|
}
|
|
}
|
|
|
|
public U0 HeapLogRep()
|
|
{
|
|
I64 i,total=0;
|
|
CHeapLog *temph;
|
|
if (!LBtr(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0)) {
|
|
"HeapLog Not Active\n";
|
|
return;
|
|
}
|
|
"$$WW,0$$";
|
|
|
|
PushFD;
|
|
Cli;
|
|
while (LBts(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0))
|
|
Pause;
|
|
for (i=0;i<HEAPLOG_HASH_SIZE;i++) {
|
|
temph=heaplog_root[i].next;
|
|
while (temph!=&heaplog_root[i]) {
|
|
"$$FG,PURPLE$$%08X$$FG$$ %08X ",MSize(temph->addr),temph->addr;
|
|
if (!PutSrcLink(temph->caller1,64))
|
|
"%P",temph->caller1;
|
|
'' CH_SPACE;
|
|
if (!PutSrcLink(temph->caller2,64))
|
|
"%P",temph->caller2;
|
|
'' CH_SPACE;
|
|
if (!PutSrcLink(temph->caller3,64))
|
|
"%P",temph->caller3;
|
|
'' CH_SPACE;
|
|
if (!PutSrcLink(temph->caller4,64))
|
|
"%P",temph->caller4;
|
|
NewLine;
|
|
|
|
total+=MSize(temph->addr);
|
|
temph=temph->next;
|
|
}
|
|
}
|
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
|
PopFD;
|
|
"\n$$FG,LTRED$$Total:%08X$$FG$$\n",total;
|
|
LBts(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0);
|
|
}
|
|
|
|
public U0 HeapLog(Bool val=TRUE,CTask *task=NULL)
|
|
{
|
|
I64 i;
|
|
if (val) {
|
|
if (Bt(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0))
|
|
"HeapLog Already Active\n";
|
|
else {
|
|
if (!task) task=Fs;
|
|
if (TaskValidate(task))
|
|
heaplog_hc=task->data_heap;
|
|
else
|
|
heaplog_hc=task;
|
|
PushFD;
|
|
Cli;
|
|
while (LBts(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0))
|
|
Pause;
|
|
heaplog_task=Spawn(&HeapLogTask);
|
|
ext[EXT_HEAPLOG_MALLOC]=&HeapLogMAlloc;
|
|
ext[EXT_HEAPLOG_FREE]=&HeapLogFree;
|
|
heaplog_root=MAlloc(sizeof(CHeapLogHash)*HEAPLOG_HASH_SIZE,heaplog_task);
|
|
for (i=0;i<HEAPLOG_HASH_SIZE;i++)
|
|
QueInit(&heaplog_root[i]);
|
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
|
PopFD;
|
|
LBts(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0);
|
|
}
|
|
} else {
|
|
if (!LBtr(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0))
|
|
"HeapLog Not Active\n";
|
|
else {
|
|
Kill(heaplog_task);
|
|
heaplog_root=heaplog_task=NULL;
|
|
ext[EXT_HEAPLOG_MALLOC]=NULL;
|
|
ext[EXT_HEAPLOG_FREE]=NULL;
|
|
}
|
|
}
|
|
}
|
|
|
|
#help_index ""
|