paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

lplupdate: clean up

Browse Source 
git-svn-id: trunk@40320 -
This commit is contained in:
mattias 2013-02-14 23:08:38 +00:00
parent e436bede0d
commit 067df6dac3
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/lplupdate.lpr
View File

@ -370,7 +370,6 @@ begin
if Pkg=nil then continue; if Pkg=nil then continue;
if (CompareText(ExtractFileNameOnly(Link.ExpFilename),Pkg.Name)<>0) if (CompareText(ExtractFileNameOnly(Link.ExpFilename),Pkg.Name)<>0)
or (not FileExistsUTF8(Link.ExpFilename)) then begin or (not FileExistsUTF8(Link.ExpFilename)) then begin
debugln(['TLPLUpdate.WriteLinksWithWrongExpFilename AAA1 ',Link.PkgName,' ',Pkg.Name]);
LinkFilename:='$(LazarusDir)/'+StringReplace(CreateRelativePath(Pkg.Filename,PkgDir),'\','/',[rfReplaceAll]); LinkFilename:='$(LazarusDir)/'+StringReplace(CreateRelativePath(Pkg.Filename,PkgDir),'\','/',[rfReplaceAll]);
if not (Quiet and WriteCommands) then if not (Quiet and WriteCommands) then
writeln('Wrong filename in link ',ExtractFileNameOnly(Link.LPLFilename),' should be '+LinkFilename); writeln('Wrong filename in link ',ExtractFileNameOnly(Link.LPLFilename),' should be '+LinkFilename);