Browse Source

* set the omf section size limit to 32-bit for the dwarf debug sections

git-svn-id: trunk@39088 -
nickysn 7 years ago
parent
commit
ca50b14e21
1 changed files with 4 additions and 1 deletions
  1. 4 1
      compiler/ogomf.pas

+ 4 - 1
compiler/ogomf.pas

@@ -586,7 +586,10 @@ implementation
         if atype=sec_stack then
         if atype=sec_stack then
           TOmfObjSection(Result).FCombination:=scStack
           TOmfObjSection(Result).FCombination:=scStack
         else if atype in [sec_debug_frame,sec_debug_info,sec_debug_line,sec_debug_abbrev,sec_debug_aranges,sec_debug_ranges] then
         else if atype in [sec_debug_frame,sec_debug_info,sec_debug_line,sec_debug_abbrev,sec_debug_aranges,sec_debug_ranges] then
-          TOmfObjSection(Result).FUse:=suUse32;
+          begin
+            TOmfObjSection(Result).FUse:=suUse32;
+            TOmfObjSection(Result).SizeLimit:=high(longword);
+          end;
         if section_belongs_to_dgroup(atype) then
         if section_belongs_to_dgroup(atype) then
           TOmfObjSection(Result).FPrimaryGroup:='DGROUP';
           TOmfObjSection(Result).FPrimaryGroup:='DGROUP';
       end;
       end;