Browse Source

* fix a problem with KNOWNCOMPILE10ERROR

pierre 22 years ago
parent
commit
68f1feb47b
1 changed files with 6 additions and 2 deletions
  1. 6 2
      tests/utils/dotest.pp

+ 6 - 2
tests/utils/dotest.pp

@@ -444,7 +444,8 @@ begin
         Copyfile(OutName,LongLogFile,true);
         Copyfile(OutName,LongLogFile,true);
         Verbose(V_Abort,known_problem+'exitcode: '+ToStr(ExecuteResult));
         Verbose(V_Abort,known_problem+'exitcode: '+ToStr(ExecuteResult));
       end
       end
-     else if (ExecuteResult<>0) and (Pos('1.0',CompilerVersion)=1) and
+     else if (ExecuteResult<>0) and
+             GetCompilerVersion and (Pos('1.0',CompilerVersion)=1) and
         (((Config.KnownCompile10Note<>'') and (Config.KnownCompile10Error=0)) or
         (((Config.KnownCompile10Note<>'') and (Config.KnownCompile10Error=0)) or
          ((Config.KnownCompile10Error<>0) and (ExecuteResult=Config.KnownCompile10Error))) then
          ((Config.KnownCompile10Error<>0) and (ExecuteResult=Config.KnownCompile10Error))) then
       begin
       begin
@@ -781,7 +782,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.26  2003-02-20 12:41:15  pierre
+  Revision 1.27  2003-06-13 08:16:34  pierre
+   * fix a problem with KNOWNCOMPILE10ERROR
+
+  Revision 1.26  2003/02/20 12:41:15  pierre
    + handle KNOWNCOMPILEERROR and KNOWNCOMPILE10ERROR
    + handle KNOWNCOMPILEERROR and KNOWNCOMPILE10ERROR
 
 
   Revision 1.25  2002/12/24 22:30:41  peter
   Revision 1.25  2002/12/24 22:30:41  peter