Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fixed typo.

git-svn-id: trunk@23617 -
yury 12 years ago
parent
6b2fbff155
commit
eae9c8df3c
2 changed files with 2 additions and 2 deletions
Split View Show Diff Stats
  1. 1 1
      tests/test/tcpstransistrcompare.pp
  2. 1 1
      tests/test/tcpstransistrcompareequal.pp

+ 1 - 1
tests/test/tcpstransistrcompare.pp
View File 

@@ -8,7 +8,7 @@ type
 
   ts1253 = type AnsiString(1253);
 
   ts1251 = type AnsiString(1251);
 
 var
 
-  s1 : ts1252;
 
+  s1 : ts1253;
 
   s2 : ts1251;
 
   au : unicodestring;
 
 begin

+ 1 - 1
tests/test/tcpstransistrcompareequal.pp
View File 

@@ -8,7 +8,7 @@ type
 
   ts1253 = type AnsiString(1253);
 
   ts1251 = type AnsiString(1251);
 
 var
 
-  s1 : ts1252;
 
+  s1 : ts1253;
 
   s2 : ts1251;
 
   au : unicodestring;
 
 begin