Explorar o código

* fixed AnsiStrLower/AnsiStrUpper (were exchanged)

git-svn-id: trunk@9441 -
Jonas Maebe %!s(int64=17) %!d(string=hai) anos
pai
achega
19985965e6
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      rtl/unix/cwstring.pp

+ 2 - 2
rtl/unix/cwstring.pp

@@ -669,7 +669,7 @@ function AnsiStrLower(Str: PChar): PChar;
 var
   temp: ansistring;
 begin
-  temp:=upperansistring(str);
+  temp:=loweransistring(str);
   ansi2pchar(temp,str,result);
 end;
 
@@ -678,7 +678,7 @@ function AnsiStrUpper(Str: PChar): PChar;
 var
   temp: ansistring;
 begin
-  temp:=loweransistring(str);
+  temp:=upperansistring(str);
   ansi2pchar(temp,str,result);
 end;