paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 07:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for Mantis : define FPC_ISO and FPC_EXTENDEDPASCAL for modes ISO and EXTENDEDPASCAL respectively

Browse Source 
git-svn-id: trunk@43114 -
This commit is contained in:
svenbarth 2019-10-03 12:34:36 +00:00
parent f46b8539d0
commit 562d345060
1 changed files with 10 additions and 2 deletions

12
compiler/scanner.pas
View File

@ -615,7 +615,11 @@ implementation
undef_system_macro('FPC_GPC')
{$endif}
else if (m_mac in oldmodeswitches) then
undef_system_macro('FPC_MACPAS');
undef_system_macro('FPC_MACPAS')
else if (m_iso in oldmodeswitches) then
undef_system_macro('FPC_ISO')
else if (m_extpas in oldmodeswitches) then
undef_system_macro('FPC_EXTENDEDPASCAL');
{ define new symbol in delphi,objfpc,tp,gpc,macpas mode }
if (m_delphi in current_settings.modeswitches) then
@ -629,7 +633,11 @@ implementation
def_system_macro('FPC_GPC')
{$endif}
else if (m_mac in current_settings.modeswitches) then
def_system_macro('FPC_MACPAS');
def_system_macro('FPC_MACPAS')
else if (m_iso in current_settings.modeswitches) then
def_system_macro('FPC_ISO')
else if (m_extpas in current_settings.modeswitches) then
def_system_macro('FPC_EXTENDEDPASCAL');
end;
SetCompileMode:=b;