paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 00:39:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* last char of prefix should be a /

Browse Source 
git-svn-id: trunk@196 -
This commit is contained in:
florian 2005-06-04 16:56:42 +00:00
parent e3aef781eb
commit 68350b00fa
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/svn2cl.pp
View File

@ -118,6 +118,11 @@ begin
maxequal:=j; maxequal:=j;
end; end;
{ test/p1.pas test/p2.pas should use the prefix test/ instead of test/p }
if maxequal<65535 then
while (maxequal>0) and (paths[0][maxequal]<>'/') do
dec(maxequal);
{ generate prefix } { generate prefix }
pathtemp:=' * '+copy(paths[0],1,maxequal)+': '; pathtemp:=' * '+copy(paths[0],1,maxequal)+': ';
for i:=0 to paths.Count-1 do for i:=0 to paths.Count-1 do