ソースを参照

+ Add EXTDEBUG warning if pi_needs_got was not set in pass_1

git-svn-id: trunk@22449 -
pierre 13 年 前
コミット
5b5a5ab7af
1 ファイル変更4 行追加0 行削除
  1. 4 0
      compiler/i386/cgcpu.pas

+ 4 - 0
compiler/i386/cgcpu.pas

@@ -259,6 +259,10 @@ unit cgcpu;
                                 reference_reset_symbol(tmpref,r.symbol,0,r.alignment);
                                 tmpref.refaddr:=addr_pic;
                                 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);
                                 list.concat(taicpu.op_ref(A_PUSH,S_L,tmpref));
                               end