Bläddra i källkod

* declare the group dgroup even in i8086 far data memory models

git-svn-id: trunk@27348 -
nickysn 11 år sedan
förälder
incheckning
17a8c03e41
1 ändrade filer med 12 tillägg och 15 borttagningar
  1. 12 15
      compiler/x86/agx86nsm.pas

+ 12 - 15
compiler/x86/agx86nsm.pas

@@ -1199,21 +1199,18 @@ interface
       end;
       end;
 
 
       AsmWriteLn('SECTION ' + CodeSectionName + ' use16 class=code');
       AsmWriteLn('SECTION ' + CodeSectionName + ' use16 class=code');
-      if current_settings.x86memorymodel in x86_near_data_models then
-        begin
-          { NASM complains if you put a missing section in the GROUP directive, so }
-          { we add empty declarations to make sure they exist, even if empty }
-          AsmWriteLn('SECTION .rodata');
-          AsmWriteLn('SECTION .data');
-          AsmWriteLn('SECTION .fpc');
-          { WLINK requires class=bss in order to leave the BSS section out of the executable }
-          AsmWriteLn('SECTION .bss class=bss');
-          { group these sections in the same segment }
-          if current_settings.x86memorymodel=mm_tiny then
-            AsmWriteLn('GROUP dgroup text rodata data fpc bss')
-          else
-            AsmWriteLn('GROUP dgroup rodata data fpc bss');
-        end;
+      { NASM complains if you put a missing section in the GROUP directive, so }
+      { we add empty declarations to make sure they exist, even if empty }
+      AsmWriteLn('SECTION .rodata');
+      AsmWriteLn('SECTION .data');
+      AsmWriteLn('SECTION .fpc');
+      { WLINK requires class=bss in order to leave the BSS section out of the executable }
+      AsmWriteLn('SECTION .bss class=bss');
+      { group these sections in the same segment }
+      if current_settings.x86memorymodel=mm_tiny then
+        AsmWriteLn('GROUP dgroup text rodata data fpc bss')
+      else
+        AsmWriteLn('GROUP dgroup rodata data fpc bss');
       if paratargetdbg in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4] then
       if paratargetdbg in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4] then
         begin
         begin
           AsmWriteLn('SECTION .debug_frame  use32 class=DWARF');
           AsmWriteLn('SECTION .debug_frame  use32 class=DWARF');