소스 검색

Allow testing of delayed pi_needs_got by internal error generated if compiler compiled with -dCHECK_PIC

git-svn-id: trunk@22547 -
pierre 13 년 전
부모
커밋
b145028f35
1개의 변경된 파일12개의 추가작업 그리고 4개의 파일을 삭제
  1. 12 4
      compiler/sparc/cgcpu.pas

+ 12 - 4
compiler/sparc/cgcpu.pas

@@ -181,7 +181,9 @@ implementation
           begin
             if not(pi_needs_got in current_procinfo.flags) then
               begin
-                //internalerror(200501161);
+{$ifdef CHECK_PIC}
+                internalerror(200501161);
+{$endif CHECK_PIC}
                 include(current_procinfo.flags,pi_needs_got);
               end;
             if current_procinfo.got=NR_NO then
@@ -201,7 +203,9 @@ implementation
             tmpref.refaddr:=addr_pic;
             if not(pi_needs_got in current_procinfo.flags) then
               begin
-                //internalerror(200501161);
+{$ifdef CHECK_PIC}
+                internalerror(200501161);
+{$endif CHECK_PIC}
                 include(current_procinfo.flags,pi_needs_got);
               end;
             if current_procinfo.got=NR_NO then
@@ -749,7 +753,9 @@ implementation
           begin
             if not(pi_needs_got in current_procinfo.flags) then
               begin
-                //internalerror(200501161);
+{$ifdef CHECK_PIC}
+                internalerror(200501161);
+{$endif CHECK_PIC}
                 include(current_procinfo.flags,pi_needs_got);
               end;
             if current_procinfo.got=NR_NO then
@@ -769,7 +775,9 @@ implementation
             tmpref.refaddr:=addr_pic;
             if not(pi_needs_got in current_procinfo.flags) then
               begin
-                //internalerror(200501161);
+{$ifdef CHECK_PIC}
+                internalerror(200501161);
+{$endif CHECK_PIC}
                 include(current_procinfo.flags,pi_needs_got);
               end;
             if current_procinfo.got=NR_NO then