paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 15:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* declare the text segment with class=code on i8086-msdos

Browse Source 
git-svn-id: trunk@24830 -
This commit is contained in:
nickysn 2013-06-09 12:13:52 +00:00
parent 5de259e487
commit b74af9fda0
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/agx86nsm.pas
View File

@ -1068,12 +1068,12 @@ interface
internalerror(2013050101);
end;
if current_settings.x86memorymodel in [mm_small,mm_tiny] then
if current_settings.x86memorymodel in x86_near_code_models then
AsmWriteLn('SECTION .text 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 }
if current_settings.x86memorymodel=mm_tiny then
AsmWriteLn('SECTION .text');
AsmWriteLn('SECTION .rodata');
AsmWriteLn('SECTION .data');
{ WLINK requires class=bss in order to leave the BSS section out of the executable }
@ -1083,8 +1083,8 @@ interface
AsmWriteLn('GROUP dgroup text rodata data bss')
else
AsmWriteLn('GROUP dgroup rodata data bss');
AsmWriteLn('SECTION .text');
end;
AsmWriteLn('SECTION .text');
{$else i8086}
AsmWriteLn('BITS 32');
{$endif i8086}

2
rtl/msdos/prt0stm.asm
View File

@ -14,7 +14,7 @@
cpu 8086
segment text use16
segment text use16 class=code
extern PASCALMAIN
extern dos_psp