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

* capitalize omf segment class names, as that's how other 16-bit compilers write them

Browse Source 
git-svn-id: trunk@31371 -
This commit is contained in:
nickysn 2015-08-22 19:07:04 +00:00
parent 1643c5f073
commit 5dc42404cf
3 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ogomf.pas
View File

@ -385,28 +385,28 @@ implementation
FUse:=suUse16;
if oso_executable in Aoptions then
begin
FClassName:='code';
FClassName:='CODE';
dgroup:=(current_settings.x86memorymodel=mm_tiny);
end
else if Aname='stack' then
begin
FClassName:='stack';
FClassName:='STACK';
FCombination:=scStack;
dgroup:=current_settings.x86memorymodel in (x86_near_data_models-[mm_tiny]);
end
else if Aname='heap' then
begin
FClassName:='heap';
FClassName:='HEAP';
dgroup:=current_settings.x86memorymodel in x86_near_data_models;
end
else if Aname='bss' then
begin
FClassName:='bss';
FClassName:='BSS';
dgroup:=true;
end
else if Aname='data' then
begin
FClassName:='data';
FClassName:='DATA';
dgroup:=true;
end
else if (Aname='debug_frame') or
@ -420,7 +420,7 @@ implementation
end
else
begin
FClassName:='data';
FClassName:='DATA';
dgroup:=true;
end;
if dgroup then

20
compiler/x86/agx86nsm.pas
View File

@ -268,7 +268,7 @@ interface
if current_settings.x86memorymodel in x86_far_code_models then
begin
if cs_huge_code in current_settings.moduleswitches then
result:=aname + '_TEXT use16 class=code'
result:=aname + '_TEXT use16 class=CODE'
else
result:=current_module.modulename^ + '_TEXT';
end
@ -533,11 +533,11 @@ interface
else if (target_info.system=system_i8086_msdos) and
(atype=sec_stack) and
(current_settings.x86memorymodel in x86_far_data_models) then
AsmWrite('stack stack class=stack align=16')
AsmWrite('stack stack class=STACK align=16')
else if (target_info.system=system_i8086_msdos) and
(atype=sec_heap) and
(current_settings.x86memorymodel in x86_far_data_models) then
AsmWrite('heap class=heap align=16')
AsmWrite('heap class=HEAP align=16')
{$endif i8086}
else
AsmWrite(secnames[atype]);
@ -1078,19 +1078,19 @@ interface
end;
if not (cs_huge_code in current_settings.moduleswitches) then
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 }
{ we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata class=data align=2');
AsmWriteLn('SECTION .data class=data align=2');
AsmWriteLn('SECTION .fpc class=data');
AsmWriteLn('SECTION .rodata class=DATA align=2');
AsmWriteLn('SECTION .data class=DATA align=2');
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 align=2');
AsmWriteLn('SECTION .bss class=BSS align=2');
if (current_settings.x86memorymodel<>mm_tiny) and
(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');
if current_settings.x86memorymodel in x86_near_data_models then
AsmWriteLn('SECTION heap class=heap align=16');
AsmWriteLn('SECTION heap class=HEAP align=16');
{ group these sections in the same segment }
if current_settings.x86memorymodel=mm_tiny then
AsmWriteLn('GROUP DGROUP text rodata data fpc bss heap')

8
rtl/msdos/prt0comn.asm
View File

@ -36,7 +36,7 @@
cpu 8086
segment text use16 class=code
segment text use16 class=CODE
extern PASCALMAIN
extern __fpc_PrefixSeg
@ -489,7 +489,7 @@ FPC_CHECK_NULLAREA:
%endif
%endif
segment data class=data align=2
segment data class=DATA align=2
%ifdef __NEAR_DATA__
mem_realloc_err_msg:
db 'Memory allocation error', 13, 10, '$'
@ -500,7 +500,7 @@ not_enough_mem_msg:
; module, containing the heap segment doesn't get smartlinked away
dw ___heap
segment bss class=bss align=2
segment bss class=BSS align=2
%ifndef __TINY__
segment _NULL align=16 class=BEGDATA
@ -513,7 +513,7 @@ __nullarea:
dw 0
%ifdef __NEAR_DATA__
segment stack stack class=stack
segment stack stack class=STACK
%else
segment data
; add reference to the beginning of stack, so the object module,