paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:39:38 +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
else
{$endif}
result:='text';
result:='_TEXT';
end;
constructor TOmfObjData.create(const n: string);

4
compiler/omfbase.pas
View File

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

2
compiler/systems/t_msdos.pas
View File

@ -472,7 +472,7 @@ begin
else
begin
{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 _NULL||BEGDATA');
LinkScript.Concat(' OBJSECTION _AFTERNULL||BEGDATA');

6
compiler/x86/agx86nsm.pas
View File

@ -273,8 +273,10 @@ interface
result:=current_module.modulename^ + '_TEXT';
end
else
{$endif}
result:='_TEXT';
{$else i8086}
result:='.text';
{$endif}
end;
@ -1095,7 +1097,7 @@ interface
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')
AsmWriteLn('GROUP DGROUP _TEXT rodata data fpc bss heap')
else if current_settings.x86memorymodel in x86_near_data_models then
AsmWriteLn('GROUP DGROUP rodata data fpc bss stack heap')
else

4
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
@ -523,7 +523,7 @@ __nullarea:
%endif
%ifdef __TINY__
group DGROUP text data bss
group DGROUP _TEXT data bss
%else
%ifdef __NEAR_DATA__
group DGROUP _NULL _AFTERNULL data bss stack