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

deheisenberg statistics/0 (that is, statistics/0 should not spend space).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@123 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-07-12 12:47:57 +00:00
parent e1e54337b3
commit 0995041a7e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/utils.yap
View File

@ -397,6 +397,9 @@ statistics :-
'$inform_stack_overflows'(NOfSO,TotSOTime), '$inform_stack_overflows'(NOfSO,TotSOTime),
'$inform_trail_overflows'(NOfTO,TotTOTime), '$inform_trail_overflows'(NOfTO,TotTOTime),
'$inform_gc'(NOfGC,TotGCTime,TotGCSize), '$inform_gc'(NOfGC,TotGCTime,TotGCSize),
'$statistics'(Runtime,CPUtime,Walltime,HpSpa,HpInUse,HpMax,TrlSpa, TrlInUse,TrlMax,StkSpa, GlobInU, LocInU,GlobMax,LocMax,NOfHO,TotHOTime,NOfSO,TotSOTime,NOfTO,TotTOTime,NOfGC,TotGCTime,TotGCSize).
'$statistics'(Runtime,CPUtime,Walltime,HpSpa,HpInUse,HpMax,TrlSpa, TrlInUse,TrlMax,StkSpa, GlobInU, LocInU,GlobMax,LocMax,NOfHO,TotHOTime,NOfSO,TotSOTime,NOfTO,TotTOTime,NOfGC,TotGCTime,TotGCSize) :-
TotalMemory is HpSpa+StkSpa+TrlSpa, TotalMemory is HpSpa+StkSpa+TrlSpa,
format(user_error,"memory (total)~t~d bytes~35+~n", [TotalMemory]), format(user_error,"memory (total)~t~d bytes~35+~n", [TotalMemory]),
format(user_error," program space~t~d bytes~35+", [HpSpa]), format(user_error," program space~t~d bytes~35+", [HpSpa]),
@ -429,7 +432,9 @@ statistics :-
CPUTime is float(CPUtime)/1000, CPUTime is float(CPUtime)/1000,
format("~t~3f~12+ sec. cputime~n", [CPUTime]), format("~t~3f~12+ sec. cputime~n", [CPUTime]),
WallTime is float(Walltime)/1000, WallTime is float(Walltime)/1000,
format("~t~3f~12+ sec. elapsed time~n~n", [WallTime]). format("~t~3f~12+ sec. elapsed time~n~n", [WallTime]),
fail.
'$statistics'(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_).
statistics(runtime,[T,L]) :- statistics(runtime,[T,L]) :-
'$runtime'(T,L). '$runtime'(T,L).