[Acmcontester-developers] SF.net SVN: acmcontester: [210] ACMServer/branches/Version_2/Server/ MainUnit.pas

[<Or...@us...>]

Revision: 210
          http://acmcontester.svn.sourceforge.net/acmcontester/?rev=210&view=rev
Author:   Oracle_
Date:     2008-06-04 02:08:29 -0700 (Wed, 04 Jun 2008)

Log Message:
-----------
Fixed small bug with TL.

Modified Paths:
--------------
    ACMServer/branches/Version_2/Server/MainUnit.pas

Modified: ACMServer/branches/Version_2/Server/MainUnit.pas
===================================================================
--- ACMServer/branches/Version_2/Server/MainUnit.pas	2008-06-03 21:41:11 UTC (rev 209)
+++ ACMServer/branches/Version_2/Server/MainUnit.pas	2008-06-04 09:08:29 UTC (rev 210)
@@ -621,7 +621,7 @@
 
   LLog.Add('End Testing RUN');
 
-  WorkedTime:=WorkedTime*100;
+  WorkedTime:=Round((WorkedTime-TLx)/TLk)*100;
   UsedMemory:=UsedMemory div 1024;
 
   if Language = L_Pascal then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.