diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

try again to get correct statistics on memory usage :(w

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-10 21:18:35 +01:00
parent 2aff3b5071
commit 9b3b304624
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/stdpreds.c
View File

@ -3456,7 +3456,10 @@ p_statistics_heap_info(void)
#if USE_SYSTEM_MALLOC && HAVE_MALLINFO
struct mallinfo mi = mallinfo();
Term tmax = MkIntegerTerm((mi.arena+mi.hblkhd)-Yap_HoleSize);
UInt sstack = Yap_HoleSize+(Yap_TrailTop-Yap_GlobalBase);
UInt mmax = (mi.arena+mi.hblkhd);
Term tmax = MkIntegerTerm(mmax-sstack);
tusage = MkIntegerTerm(mmax-(mi.fordblks+sstack));
#else
Term tmax = MkIntegerTerm((Yap_GlobalBase - Yap_HeapBase)-Yap_HoleSize);
#endif