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

* 8086: Do not force far calls in the TP mode by default. This is TP compatible. Other modes need forced far calls by default in order to compile non-TP code.

Browse Source 
git-svn-id: trunk@46433 -
This commit is contained in:
yury 2020-08-14 16:56:13 +00:00
parent 9d3b105fab
commit f7d14128b5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -604,6 +604,16 @@ implementation
include(init_settings.localswitches,cs_strict_var_strings); include(init_settings.localswitches,cs_strict_var_strings);
end; end;
{$ifdef i8086}
{ Do not force far calls in the TP mode by default }
if (m_tp7 in current_settings.modeswitches) then
begin
exclude(current_settings.localswitches,cs_force_far_calls);
if changeinit then
exclude(init_settings.localswitches,cs_force_far_calls);
end;
{$endif i8086}
{ Undefine old symbol } { Undefine old symbol }
if (m_delphi in oldmodeswitches) then if (m_delphi in oldmodeswitches) then
undef_system_macro('FPC_DELPHI') undef_system_macro('FPC_DELPHI')