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

fix statistics

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@143 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-08-27 15:04:51 +00:00
parent 41cc6c0f4e
commit bef57eb26c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/utils.yap
View File

@ -423,16 +423,16 @@ statistics :-
format(user_error,",~t ~d free~19+~n", [TrlFree]), format(user_error,",~t ~d free~19+~n", [TrlFree]),
OvfTime is TotHOTime+TotSOTime+TotTOTime, OvfTime is TotHOTime+TotSOTime+TotTOTime,
format("~n~t~3f~12+ sec. for ~w code, ~w stack, and ~w trail space overflows~n", format(user_error,"~n~t~3f~12+ sec. for ~w code, ~w stack, and ~w trail space overflows~n",
[OvfTime,NOfHO,NOfSO,NOfTO]), [OvfTime,NOfHO,NOfSO,NOfTO]),
format("~t~3f~12+ sec. for ~w garbage collections which collected ~d bytes~n", format(user_error,"~t~3f~12+ sec. for ~w garbage collections which collected ~d bytes~n",
[TotGCTime,NOfGC,TotGCSize]), [TotGCTime,NOfGC,TotGCSize]),
RTime is float(Runtime)/1000, RTime is float(Runtime)/1000,
format("~t~3f~12+ sec. runtime~n", [RTime]), format(user_error,"~t~3f~12+ sec. runtime~n", [RTime]),
CPUTime is float(CPUtime)/1000, CPUTime is float(CPUtime)/1000,
format("~t~3f~12+ sec. cputime~n", [CPUTime]), format(user_error,"~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(user_error,"~t~3f~12+ sec. elapsed time~n~n", [WallTime]),
fail. fail.
'$statistics'(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_). '$statistics'(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_).