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

* Don't crash on a PLT-generating relocation to a local symbol (which should not normally appear, but nevertheless is possible).

Browse Source 
git-svn-id: trunk@23481 -
This commit is contained in:
sergei 2013-01-21 16:49:10 +00:00
parent 0560af663c
commit 40c510403f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86_64/cpuelf.pas
View File

@ -211,11 +211,14 @@ implementation
R_X86_64_PLT32, R_X86_64_PLT32,
R_X86_64_PLTOFF64, R_X86_64_PLTOFF64,
R_X86_64_GOTPLT64: R_X86_64_GOTPLT64:
begin
if assigned(ObjReloc.symbol) and assigned(ObjReloc.symbol.exesymbol) then
begin begin
objsym:=ObjReloc.symbol.exesymbol.ObjSymbol; objsym:=ObjReloc.symbol.exesymbol.ObjSymbol;
objsym.refs:=objsym.refs or symref_plt; objsym.refs:=objsym.refs or symref_plt;
end; end;
end; end;
end;
case reltyp of case reltyp of
R_X86_64_GOTTPOFF: R_X86_64_GOTTPOFF: