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

+ added the $F switch to the turbo and macSwitchTable, as that takes precedence

Browse Source 
over dir_forcefarcalls

git-svn-id: trunk@27561 -
This commit is contained in:
nickysn 2014-04-13 15:14:43 +00:00
parent fc6eac6a98
commit 86b9a0eed1
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/switches.pas
View File

@ -64,7 +64,11 @@ const
{C} (typesw:localsw; setsw:ord(cs_do_assertion)),
{D} (typesw:modulesw; setsw:ord(cs_debuginfo)),
{E} (typesw:modulesw; setsw:ord(cs_fp_emulation)),
{$ifdef i8086}
{F} (typesw:localsw; setsw:ord(cs_force_far_calls)),
{$else i8086}
{F} (typesw:ignoredsw; setsw:ord(cs_localnone)),
{$endif i8086}
{G} (typesw:ignoredsw; setsw:ord(cs_localnone)),
{H} (typesw:localsw; setsw:ord(cs_refcountedstrings)),
{I} (typesw:localsw; setsw:ord(cs_check_io)),
@ -94,7 +98,11 @@ const
{C} (typesw:localsw; setsw:ord(cs_do_assertion)),
{D} (typesw:modulesw; setsw:ord(cs_debuginfo)),
{E} (typesw:modulesw; setsw:ord(cs_fp_emulation)),
{$ifdef i8086}
{F} (typesw:localsw; setsw:ord(cs_force_far_calls)),
{$else i8086}
{F} (typesw:ignoredsw; setsw:ord(cs_localnone)),
{$endif i8086}
{G} (typesw:ignoredsw; setsw:ord(cs_localnone)),
{H} (typesw:localsw; setsw:ord(cs_refcountedstrings)),
{I} (typesw:localsw; setsw:ord(cs_check_io)),