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

* fix mantis #29970

Browse Source 
git-svn-id: trunk@33432 -
This commit is contained in:
marco 2016-04-07 09:30:03 +00:00
parent 438995b249
commit 39f1244041
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/winunits-base/src/typelib.pas
View File

@ -394,7 +394,8 @@ begin
if RegQueryValue(Handle,nil,@sRefSrc[1],@il) = ERROR_SUCCESS then
begin
SetLength(sRefSrc,il-1); // includes null terminator
if not FDependencies.Find(sRefSrc,i) then
i:=FDependencies.Indexof(sRefSrc);
if i < 0 Then
FDependencies.Add(sRefSrc);
end
else