From 31fcd93a1c99444316286d5040259150474ba272 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 11 Nov 2006 10:23:27 +0000
Subject: [PATCH]   * replace can now also insert strings > 255 chars in
 ansistrings

git-svn-id: trunk@5327 -
---
 compiler/cutils.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cutils.pas b/compiler/cutils.pas
index 3e8b9e03e5..f1a9048f7e 100644
--- a/compiler/cutils.pas
+++ b/compiler/cutils.pas
@@ -60,7 +60,7 @@ interface
     function size_2_align(len : longint) : shortint;
     function packedbitsloadsize(bitlen: int64) : int64;
     procedure Replace(var s:string;s1:string;const s2:string);
-    procedure Replace(var s:AnsiString;s1:string;const s2:string);
+    procedure Replace(var s:AnsiString;s1:string;const s2:AnsiString);
     procedure ReplaceCase(var s:string;const s1,s2:string);
     Function MatchPattern(const pattern,what:string):boolean;
     function upper(const s : string) : string;
@@ -351,7 +351,7 @@ implementation
       end;
 
 
-    procedure Replace(var s:AnsiString;s1:string;const s2:string);
+    procedure Replace(var s:AnsiString;s1:string;const s2:AnsiString);
       var
          last,
          i  : longint;