Procházet zdrojové kódy

* fixed previous commit

git-svn-id: trunk@1050 -
florian před 20 roky
rodič
revize
63ed93fc24
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      rtl/unix/cwstring.pp

+ 2 - 2
rtl/unix/cwstring.pp

@@ -57,7 +57,7 @@ var
 function towlower(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towlower';
 function towupper(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towupper';
 function wcscoll (__s1:pwchar_t; __s2:pwchar_t):cint;cdecl;external libiconvname name 'wcscoll';
-function strcoll (__s1:pchar_t; __s2:pchar_t):cint;cdecl;external libiconvname name 'strcoll';
+function strcoll (__s1:pchar; __s2:pchar):cint;cdecl;external libiconvname name 'strcoll';
 
 const
 {$ifdef linux}
@@ -229,7 +229,7 @@ function CompareTextWideString(const s1, s2 : WideString): PtrInt;
   end;
 
 
-function StrCompAnsi(s1,s2 : AnsiString): PtrInt;
+function StrCompAnsi(s1,s2 : PChar): PtrInt;
   begin
     result:=strcoll(s1,s2);
   end;