Explorar el Código

* declare segments as use16 or use32 in the nasm asm writer

git-svn-id: trunk@31493 -
nickysn hace 10 años
padre
commit
3b36e3d0b5
Se han modificado 1 ficheros con 4 adiciones y 0 borrados
  1. 4 0
      compiler/x86/agx86nsm.pas

+ 4 - 0
compiler/x86/agx86nsm.pas

@@ -557,6 +557,10 @@ interface
                 { yes -> write the section attributes as well }
                 { yes -> write the section attributes as well }
                 if atype=sec_stack then
                 if atype=sec_stack then
                   AsmWrite(' stack');
                   AsmWrite(' stack');
+                if atype in [sec_debug_frame,sec_debug_info,sec_debug_line,sec_debug_abbrev] then
+                  AsmWrite(' use32')
+                else
+                  AsmWrite(' use16');
                 AsmWrite(' class='+omf_segclass[atype]+
                 AsmWrite(' class='+omf_segclass[atype]+
                   ' align='+tostr(omf_sectiontype2align(atype)));
                   ' align='+tostr(omf_sectiontype2align(atype)));
                 FSectionsUsed.Add(secname,nil);
                 FSectionsUsed.Add(secname,nil);