[Acmcontester-developers] SF.net SVN: acmcontester: [103] ACMServer/branches/Version_2

[<or...@us...>]

Revision: 103
          http://acmcontester.svn.sourceforge.net/acmcontester/?rev=103&view=rev
Author:   oracle_
Date:     2008-05-08 10:25:04 -0700 (Thu, 08 May 2008)

Log Message:
-----------
Little bug fixed

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

Added Paths:
-----------
    ACMServer/branches/Version_2/changelog.txt

Modified: ACMServer/branches/Version_2/Server/TestingUnit.pas
===================================================================
--- ACMServer/branches/Version_2/Server/TestingUnit.pas	2008-05-07 22:19:10 UTC (rev 102)
+++ ACMServer/branches/Version_2/Server/TestingUnit.pas	2008-05-08 17:25:04 UTC (rev 103)
@@ -9,6 +9,7 @@
   SleepConst  = 200;
   WaitConst   = 10;
   TerProcTimeOut = 10000;
+  RealTimeConst = 25;
 
   R_CompilationError =  1;
   R_RuntimeError     =  2;
@@ -168,8 +169,15 @@
 
     if not WasOK then
     begin
-      Res.ResInt:=R_InTimeError;
-      Res.ResStr:='Cant create process with exe file="'+ExeFile+'"';
+      if ((GetLastError()=193) or (GetLastError()=1455)) then
+      begin
+       Res.ResInt:=R_RuntimeError;
+       Res.ResStr:='Extra large array error';
+      end else
+      begin
+       Res.ResInt:=R_InTimeError;
+       Res.ResStr:='Cant create process with exe file="'+ExeFile+'"';
+      end;
     end
     else begin
         starttime:=GetTickCount();
@@ -215,7 +223,7 @@
               break;
             end;
 
-          if GetTickCount-starttime>TimeLimit*100 then
+          if GetTickCount-starttime>TimeLimit*RealTimeConst then
           begin
               Res.ResInt:=R_TimeLimit;
               Res.ResStr:='Time Limit (due to realtime limit)';

Added: ACMServer/branches/Version_2/changelog.txt
===================================================================
--- ACMServer/branches/Version_2/changelog.txt	                        (rev 0)
+++ ACMServer/branches/Version_2/changelog.txt	2008-05-08 17:25:04 UTC (rev 103)
@@ -0,0 +1,2 @@
+20:20 08.05.2008 Oracle
+   - \xD2\xE5\xEF\xE5\xF0 \xEF\xF0\xEE\xE3\xF0\xE0\xEC\xE8 \xE7 \xE2\xE5\xEB\xE8\xF7\xE5\xE7\xED\xE8\xEC\xE8 \xEC\xE0\xF1\xE8\xE2\xE0\xEC\xE8 \xEA\xEE\xF0\xE5\xEA\xF2\xED\xEE \xF2\xE5\xF1\xF2\xF3\xFE\xF2\xFC\xF1\xFF - \xE2\xE8\xE2\xEE\xE4\xE8\xF2\xFC\xF1\xFF Runtime error. \xCA\xEE\xED\xF1\xF2\xE0\xED\xF2\xF3 \xE4\xEB\xFF \xF0\xE5\xE0\xEB\xFC\xED\xEE\xE3\xEE \xF7\xE0\xF1\xF3 \xF0\xEE\xE1\xEE\xF2\xE8 \xE7\xEC\xE5\xED\xF8\xE5\xED\xEE \xE4\xEE 25.
\ No newline at end of file


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