瀏覽代碼

+ 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