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

improve dbusage

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

7
library/dbusage.yap
View File

@ -7,9 +7,14 @@
db_usage :- db_usage :-
statistics(heap,[HeapUsed,HeapFree]), statistics(heap,[HeapUsed,HeapFree]),
statistics(local_stack,[GInU,FreeS]),
statistics(global_stack,[SInU,_]),
statistics(trail,[TInU,FreeT]),
HeapUsedK is HeapUsed//1024, HeapUsedK is HeapUsed//1024,
HeapFreeK is HeapFree//1024, HeapFreeK is HeapFree//1024,
format(user_error, 'Heap Space = ~d KB (+ ~d free)~n',[HeapUsedK,HeapFreeK]), StackSpace is (GInU+SInU+FreeS+TInU+FreeT)//1024,
format(user_error, 'Heap Space = ~d KB (+ ~dKB free)~n',[HeapUsedK,HeapFreeK]),
format(user_error, 'Stack Space = ~d KB~n',[StackSpace]),
findall(p(Cls,CSz,ISz), findall(p(Cls,CSz,ISz),
(current_module(M), (current_module(M),
current_predicate(_,M:P), current_predicate(_,M:P),