Browse Source

* set class=data to all data segments/sections on i8086

git-svn-id: trunk@27957 -
nickysn 11 years ago
parent
commit
2dc8839af5
2 changed files with 4 additions and 4 deletions
  1. 3 3
      compiler/x86/agx86nsm.pas
  2. 1 1
      rtl/msdos/prt0comn.asm

+ 3 - 3
compiler/x86/agx86nsm.pas

@@ -1210,9 +1210,9 @@ interface
         AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^) + ' use16 class=code');
       { 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');
+      AsmWriteLn('SECTION .rodata class=data');
+      AsmWriteLn('SECTION .data class=data');
+      AsmWriteLn('SECTION .fpc class=data');
       { WLINK requires class=bss in order to leave the BSS section out of the executable }
       AsmWriteLn('SECTION .bss class=bss');
       if current_settings.x86memorymodel<>mm_tiny then

+ 1 - 1
rtl/msdos/prt0comn.asm

@@ -460,7 +460,7 @@ FPC_CHECK_NULLAREA:
         ret
 %endif
 
-        segment data
+        segment data class=data
 mem_realloc_err_msg:
         db 'Memory allocation error', 13, 10, '$'
 not_enough_mem_msg: