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

+ Add EXTDEBUG warning if pi_needs_got was not set in pass_1

Browse Source 
git-svn-id: trunk@22449 -
This commit is contained in:
pierre 2012-09-24 15:54:59 +00:00
parent bc04e83b25
commit 5b5a5ab7af
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/cgcpu.pas
View File

@ -259,6 +259,10 @@ unit cgcpu;
reference_reset_symbol(tmpref,r.symbol,0,r.alignment); reference_reset_symbol(tmpref,r.symbol,0,r.alignment);
tmpref.refaddr:=addr_pic; tmpref.refaddr:=addr_pic;
tmpref.base:=current_procinfo.got; tmpref.base:=current_procinfo.got;
{$ifdef EXTDEBUG}
if not (pi_needs_got in current_procinfo.flags) then
Comment(V_warning,'pi_needs_got not included');
{$endif EXTDEBUG}
include(current_procinfo.flags,pi_needs_got); include(current_procinfo.flags,pi_needs_got);
list.concat(taicpu.op_ref(A_PUSH,S_L,tmpref)); list.concat(taicpu.op_ref(A_PUSH,S_L,tmpref));
end end