From 847fff6776fd81c91a8073d11d9e6d7d681f9a2f Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 24 Nov 2012 13:15:54 +0000
Subject:   * 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
---
 compiler/cfileutl.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'compiler')

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;
-- 
cgit v1.2.1