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

* fix writing of multiple files per path

Browse Source 
git-svn-id: trunk@337 -
This commit is contained in:
peter 2005-06-10 07:03:21 +00:00
parent 7449f99d5f
commit 39efda1fde
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/svn2cl.pp
View File

@ -154,7 +154,8 @@ begin
if maxequal+1<length(pathprefixes[i]) then if maxequal+1<length(pathprefixes[i]) then
pathtemp:=pathtemp+Copy(pathprefixes[i],maxequal+1,65535)+': '; pathtemp:=pathtemp+Copy(pathprefixes[i],maxequal+1,65535)+': ';
firstpath:=true; firstpath:=true;
for j:=0 to paths.Count-1 do j:=0;
while (j<paths.Count) do
begin begin
if ExtractFilePath(paths[j])=pathprefixes[i] then if ExtractFilePath(paths[j])=pathprefixes[i] then
begin begin
@ -174,8 +175,9 @@ begin
pathtemp:=pathtemp+hs; pathtemp:=pathtemp+hs;
{ delete already processed paths for performance } { delete already processed paths for performance }
paths.delete(j); paths.delete(j);
break; end
end; else
inc(j);
end; end;
if pathtemp<>newlineprefix then if pathtemp<>newlineprefix then
writeln(pathtemp); writeln(pathtemp);