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

* Allow any register for GOT if current procedure has assembler code

Browse Source 
git-svn-id: trunk@16110 -
This commit is contained in:
pierre 2010-10-08 13:20:28 +00:00
parent 207e0b58f5
commit 386478cd77
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aasmcpu.pas
View File

@ -275,6 +275,7 @@ implementation
cutils, cutils,
globals, globals,
systems, systems,
procinfo,
itcpugas, itcpugas,
symsym; symsym;
@ -933,7 +934,10 @@ implementation
{$ifdef i386} {$ifdef i386}
or ( or (
(ref^.refaddr in [addr_pic]) and (ref^.refaddr in [addr_pic]) and
(ref^.base=NR_EBX) { allow any base for assembler blocks }
((assigned(current_procinfo) and
(pi_has_assembler_block in current_procinfo.flags) and
(ref^.base<>NR_NO)) or (ref^.base=NR_EBX))
) )
{$endif i386} {$endif i386}
{$ifdef x86_64} {$ifdef x86_64}