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

* fixed reading of OMF library dictionary

Browse Source 
git-svn-id: trunk@31337 -
This commit is contained in:
nickysn 2015-08-17 13:03:57 +00:00
parent 9ff0057a94
commit 3c0d83bd74
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/owomflib.pas
View File

@ -373,7 +373,7 @@ implementation
blocks: array of TBlock;
blocknr: Integer;
block: PBlock;
ofs: Byte;
ofs: Integer;
bucket: Integer;
length_of_string: Byte;
name: string;
@ -384,14 +384,17 @@ implementation
read(blocks[0],DictionarySizeInBlocks*SizeOf(TBlock));
for blocknr:=0 to DictionarySizeInBlocks-1 do
begin
block:=@blocks[blocknr];
block:=@(blocks[blocknr]);
for bucket:=0 to nbuckets-1 do
if block^[bucket]<>0 then
begin
ofs:=block^[bucket];
ofs:=2*block^[bucket];
length_of_string:=block^[ofs];
if (ofs+1+length_of_string+1)>High(TBlock) then
Comment(V_Error,'OMF dictionary entry goes beyond end of block');
begin
Comment(V_Error,'OMF dictionary entry goes beyond end of block');
continue;
end;
SetLength(name,length_of_string);
Move(block^[ofs+1],name[1],length_of_string);
PageNum:=block^[ofs+1+length_of_string]+