From 19985965e675e239c28ae4bf510f2c8c753b8edc Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 13 Dec 2007 20:49:52 +0000
Subject: [PATCH]   * fixed AnsiStrLower/AnsiStrUpper (were exchanged)

git-svn-id: trunk@9441 -
---
 rtl/unix/cwstring.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/unix/cwstring.pp b/rtl/unix/cwstring.pp
index 985f99811a..2bdf28f54c 100644
--- a/rtl/unix/cwstring.pp
+++ b/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;