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

* 8086: enable cs_force_far_calls when m_nested_procvars is enabled.

Browse Source 
* 8086: when the compiler mode switches to a non-TP mode, enable cs_force_far_calls.

git-svn-id: trunk@46454 -
This commit is contained in:
yury 2020-08-16 10:34:23 +00:00
parent 18b8b9c566
commit 154ada9e86
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/scanner.pas
View File

@ -460,6 +460,16 @@ implementation
end;
end;
end;
{$ifdef i8086}
{ enable cs_force_far_calls when m_nested_procvars is enabled }
if switch=m_nested_procvars then
begin
include(current_settings.localswitches,cs_force_far_calls);
if changeinit then
include(init_settings.localswitches,cs_force_far_calls);
end;
{$endif i8086}
end;
@ -605,12 +615,18 @@ implementation
end;
{$ifdef i8086}
{ Do not force far calls in the TP mode by default }
{ Do not force far calls in the TP mode by default, force it in other modes }
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
else
begin
include(current_settings.localswitches,cs_force_far_calls);
if changeinit then
include(init_settings.localswitches,cs_force_far_calls);
end;
{$endif i8086}