paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* call UniqueString for Result in fpkmkunit.fixpath as suggest by Henry Vermaak, resolves #20015

Browse Source 
git-svn-id: trunk@18269 -
This commit is contained in:
florian 2011-08-18 22:03:29 +00:00
parent 860d753055
commit 386585ab66
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1744,6 +1744,7 @@ begin
Result:=APath; Result:=APath;
If (result<>'') then If (result<>'') then
begin begin
UniqueString(Result);
P:=PChar(Result); P:=PChar(Result);
While (P^<>#0) do While (P^<>#0) do
begin begin