From 53e10c99d480c017e983a666cdf2fd0d09a61567 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 14 Jul 2018 16:27:52 +0000
Subject: [PATCH] * Fix bug #33984, fix for correct string definition in
 unicodestringreplace

git-svn-id: trunk@39452 -
---
 rtl/objpas/sysutils/sysuni.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/sysutils/sysuni.inc b/rtl/objpas/sysutils/sysuni.inc
index 27467532e9..59d491fd96 100644
--- a/rtl/objpas/sysutils/sysuni.inc
+++ b/rtl/objpas/sysutils/sysuni.inc
@@ -536,9 +536,9 @@ end;
 {$macro on}
 {$define INUNICODESTRINGREPLACE}
 {$define SRString:=UnicodeString}
-{$define SRUpperCase:=WideUppercase}
-{$define SRPCHAR:=PChar}
-{$define SRCHAR:=Char}
+{$define SRUpperCase:=UnicodeUppercase}
+{$define SRPCHAR:=PUnicodeChar}
+{$define SRCHAR:=UnicodeChar}
 
 function UnicodeStringReplace(const S, OldPattern, NewPattern: UnicodeString;  Flags: TReplaceFlags): UnicodeString;
 {$i syssr.inc}