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

* fix for Mantis #36121: 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/scanner.pas
View File

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