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

+ also write the omf special segment attributes in the nasm writer for the win16 target

Browse Source 
+ enabled the internal omf obj writer for the win16 target

git-svn-id: trunk@31576 -
This commit is contained in:
nickysn 2015-09-07 22:26:14 +00:00
parent 1344d391d3
commit e323a08b20
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/i_win16.pas
View File

@ -70,7 +70,7 @@ unit i_win16;
Cprefix : '_'; Cprefix : '_';
newline : #13#10; newline : #13#10;
dirsep : '\'; dirsep : '\';
assem : as_i8086_nasmobj; assem : as_i8086_omf;
assemextern : as_i8086_nasmobj; assemextern : as_i8086_nasmobj;
link : ld_win16; link : ld_win16;
linkextern : ld_win16; linkextern : ld_win16;

4
compiler/x86/agx86nsm.pas
View File

@ -548,7 +548,7 @@ interface
else if (atype=sec_threadvar) and else if (atype=sec_threadvar) and
(target_info.system in (systems_windows+systems_wince)) then (target_info.system in (systems_windows+systems_wince)) then
AsmWrite('.tls'#9'bss') AsmWrite('.tls'#9'bss')
else if target_info.system=system_i8086_msdos then else if target_info.system in [system_i8086_msdos,system_i8086_win16] then
begin begin
if secnames[atype]='.text' then if secnames[atype]='.text' then
secname:=CodeSectionName(aname) secname:=CodeSectionName(aname)
@ -608,7 +608,7 @@ interface
i: Integer; i: Integer;
begin begin
{$ifdef i8086} {$ifdef i8086}
if target_info.system=system_i8086_msdos then if target_info.system in [system_i8086_msdos,system_i8086_win16] then
begin begin
if current_settings.x86memorymodel=mm_huge then if current_settings.x86memorymodel=mm_huge then
WriteSection(sec_data,'',2); WriteSection(sec_data,'',2);