paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set the bss, rodata and rodata_norel section alignment to 2 bytes for the i8086-msdos target

Browse Source 
git-svn-id: trunk@30680 -
This commit is contained in:
nickysn 2015-04-20 01:27:26 +00:00
parent ae04eb258b
commit 5a1ce6162b
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogomf.pas
View File

@ -329,9 +329,10 @@ implementation
result:=1; result:=1;
sec_code: sec_code:
result:=1; result:=1;
sec_data,
sec_rodata,
sec_rodata_norel,
sec_bss: sec_bss:
result:=1;
sec_data:
result:=2; result:=2;
{ For idata (at least idata2) it must be 4 bytes, because { For idata (at least idata2) it must be 4 bytes, because
an entry is always (also in win64) 20 bytes and aligning an entry is always (also in win64) 20 bytes and aligning

6
compiler/x86/agx86nsm.pas
View File

@ -1081,11 +1081,11 @@ interface
AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^) + ' use16 class=code'); AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^) + ' use16 class=code');
{ NASM complains if you put a missing section in the GROUP directive, so } { 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 } { we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata class=data'); AsmWriteLn('SECTION .rodata class=data align=2');
AsmWriteLn('SECTION .data class=data'); AsmWriteLn('SECTION .data class=data align=2');
AsmWriteLn('SECTION .fpc class=data'); AsmWriteLn('SECTION .fpc class=data');
{ WLINK requires class=bss in order to leave the BSS section out of the executable } { WLINK requires class=bss in order to leave the BSS section out of the executable }
AsmWriteLn('SECTION .bss class=bss'); AsmWriteLn('SECTION .bss class=bss align=2');
if (current_settings.x86memorymodel<>mm_tiny) and if (current_settings.x86memorymodel<>mm_tiny) and
(current_settings.x86memorymodel in x86_near_data_models) then (current_settings.x86memorymodel in x86_near_data_models) then
AsmWriteLn('SECTION stack stack class=stack align=16'); AsmWriteLn('SECTION stack stack class=stack align=16');

4
rtl/msdos/prt0comn.asm
View File

@ -489,7 +489,7 @@ FPC_CHECK_NULLAREA:
%endif %endif
%endif %endif
segment data class=data segment data class=data align=2
%ifdef __NEAR_DATA__ %ifdef __NEAR_DATA__
mem_realloc_err_msg: mem_realloc_err_msg:
db 'Memory allocation error', 13, 10, '$' db 'Memory allocation error', 13, 10, '$'
@ -500,7 +500,7 @@ not_enough_mem_msg:
; module, containing the heap segment doesn't get smartlinked away ; module, containing the heap segment doesn't get smartlinked away
dd ___heap dd ___heap
segment bss class=bss segment bss class=bss align=2
%ifndef __TINY__ %ifndef __TINY__
segment _NULL align=16 class=BEGDATA segment _NULL align=16 class=BEGDATA