* make ansistring unique before starting to change it using a pchar

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23055 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index 58feb69ead..dfbe5fc88d 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -708,6 +708,8 @@ end;
         P: PChar;
       begin
         Result := s;
+        { make result unique since we're going to change it via a pchar }
+        uniquestring(result);
         L := Length(Result);
         if L=0 then
           exit;