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

* the i8086-msdos default code segment (in near code memory models) renamed

Browse Source 
'_TEXT'. This name is used in object modules, produced by Borland C and Open
  Watcom.

git-svn-id: trunk@31482 -
This commit is contained in:
nickysn 2015-09-02 13:14:12 +00:00
parent 1a8e203bf5
commit 4061628ffb
5 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogomf.pas
View File

@ -541,7 +541,7 @@ implementation
end end
else else
{$endif} {$endif}
result:='text'; result:='_TEXT';
end; end;
constructor TOmfObjData.create(const n: string); constructor TOmfObjData.create(const n: string);

4
compiler/omfbase.pas
View File

@ -34,14 +34,14 @@ interface
const const
{ OMF segment names for the object sections, produced by the FPC code generator } { OMF segment names for the object sections, produced by the FPC code generator }
omf_secnames : array[TAsmSectiontype] of string[length('__DATA, __datacoal_nt,coalesced')] = ('','', omf_secnames : array[TAsmSectiontype] of string[length('__DATA, __datacoal_nt,coalesced')] = ('','',
'text', '_TEXT',
'data', 'data',
'data', 'data',
'rodata', 'rodata',
'bss', 'bss',
'tbss', 'tbss',
'pdata', 'pdata',
'text','data','data','data','data', '_TEXT','data','data','data','data',
'stab', 'stab',
'stabstr', 'stabstr',
'idata2','idata4','idata5','idata6','idata7','edata', 'idata2','idata4','idata5','idata6','idata7','edata',

2
compiler/systems/t_msdos.pas
View File

@ -472,7 +472,7 @@ begin
else else
begin begin
{LinkRes.Add('order clname CODE clname BEGDATA segment _NULL segment _AFTERNULL clname DATA clname BSS clname STACK clname HEAP');} {LinkRes.Add('order clname CODE clname BEGDATA segment _NULL segment _AFTERNULL clname DATA clname BSS clname STACK clname HEAP');}
LinkScript.Concat(' OBJSECTION TEXT||CODE'); LinkScript.Concat(' OBJSECTION _TEXT||CODE');
LinkScript.Concat(' OBJSECTION *||CODE'); LinkScript.Concat(' OBJSECTION *||CODE');
LinkScript.Concat(' OBJSECTION _NULL||BEGDATA'); LinkScript.Concat(' OBJSECTION _NULL||BEGDATA');
LinkScript.Concat(' OBJSECTION _AFTERNULL||BEGDATA'); LinkScript.Concat(' OBJSECTION _AFTERNULL||BEGDATA');

6
compiler/x86/agx86nsm.pas
View File

@ -273,8 +273,10 @@ interface
result:=current_module.modulename^ + '_TEXT'; result:=current_module.modulename^ + '_TEXT';
end end
else else
result:='_TEXT';
{$else i8086}
result:='.text';
{$endif} {$endif}
result:='.text';
end; end;
@ -1095,7 +1097,7 @@ interface
AsmWriteLn('SECTION heap class=HEAP align=16'); AsmWriteLn('SECTION heap class=HEAP align=16');
{ group these sections in the same segment } { group these sections in the same segment }
if current_settings.x86memorymodel=mm_tiny then if current_settings.x86memorymodel=mm_tiny then
AsmWriteLn('GROUP DGROUP text rodata data fpc bss heap') AsmWriteLn('GROUP DGROUP _TEXT rodata data fpc bss heap')
else if current_settings.x86memorymodel in x86_near_data_models then else if current_settings.x86memorymodel in x86_near_data_models then
AsmWriteLn('GROUP DGROUP rodata data fpc bss stack heap') AsmWriteLn('GROUP DGROUP rodata data fpc bss stack heap')
else else

4
rtl/msdos/prt0comn.asm
View File

@ -36,7 +36,7 @@
cpu 8086 cpu 8086
segment text use16 class=CODE segment _TEXT use16 class=CODE
extern PASCALMAIN extern PASCALMAIN
extern __fpc_PrefixSeg extern __fpc_PrefixSeg
@ -523,7 +523,7 @@ __nullarea:
%endif %endif
%ifdef __TINY__ %ifdef __TINY__
group DGROUP text data bss group DGROUP _TEXT data bss
%else %else
%ifdef __NEAR_DATA__ %ifdef __NEAR_DATA__
group DGROUP _NULL _AFTERNULL data bss stack group DGROUP _NULL _AFTERNULL data bss stack