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

* Patch from Reinier Olieslagers to fix bug #25682

Browse Source 
git-svn-id: trunk@30294 -
This commit is contained in:
michael 2015-03-23 19:42:36 +00:00
parent 5f5883695d
commit 3be394061e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-res/src/versionresource.pp
View File

@ -256,12 +256,18 @@ var block : TVerBlockHeader;
tmp : integer;
vinfo : TVerTranslationInfo;
before : int64;
isBlockHeaderRead: boolean;
begin
Result:=0;
isBlockHeaderRead:=false;
while toread>0 do
begin
before:=RawData.Position;
ReadBlockHeader(block);
if not isBlockHeaderRead then
begin
ReadBlockHeader(block);
isBlockHeaderRead:=true;
end;
if (block.valtype<>0) or (block.key<>'Translation') then
RawData.Seek(block.vallength,soFromCurrent)
else