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

* Don't be too strict while reading COFF symtable if obj file does not have COFF string table (to be compatible with LD and MS linkers). It fixes bug #9175.

Browse Source 
git-svn-id: trunk@7913 -
This commit is contained in:
yury 2007-07-01 19:57:09 +00:00
parent e23a8655e8
commit 28f0d47d83
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogcoff.pas
View File

@ -1775,12 +1775,7 @@ const pemagic : array[0..3] of byte = (
InputError('Error reading COFF Symtable'); InputError('Error reading COFF Symtable');
exit; exit;
end; end;
if strsize<4 then if (strsize>4) and not AReader.ReadArray(FCoffStrs,Strsize-4) then
begin
InputError('Error reading COFF Symtable');
exit;
end;
if not AReader.ReadArray(FCoffStrs,Strsize-4) then
begin begin
InputError('Error reading COFF Symtable'); InputError('Error reading COFF Symtable');
exit; exit;