* ensure that the toString constant is used instead of TObject's ToString method

git-svn-id: trunk@42352 -

tests/test/units/fpcunit/tctparser.pp

@@ -362,7 +362,7 @@ begin
   fPar:=TParser.Create(fStream);
   try
     try
-      fPar.CheckToken(toString);
+      fPar.CheckToken(Classes.toString);
     except
       on e : EParserError do Fail('CheckToken failed');
     end;
@@ -381,7 +381,7 @@ begin
   fPar:=TParser.Create(fStream);
   try
     try
-      fPar.CheckToken(toString);
+      fPar.CheckToken(Classes.toString);
     except
       on e : EParserError do Fail('CheckToken failed');
     end;
@@ -400,7 +400,7 @@ begin
   fPar:=TParser.Create(fStream);
   try
     try
-      fPar.CheckToken(toString);
+      fPar.CheckToken(Classes.toString);
     except
       on e : EParserError do Fail('CheckToken failed');
     end;