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

- Put gpc mode between ifdefs. The only thing it does it disable all

Browse Source 
features, this is not gpc compatibility.

git-svn-id: trunk@6518 -
This commit is contained in:
daniel 2007-02-16 23:13:28 +00:00
parent 57cfd89fbd
commit 5aef9bc086
4 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -63,8 +63,10 @@ interface
m_property,m_default_inline,m_except]; m_property,m_default_inline,m_except];
tpmodeswitches : tmodeswitches= tpmodeswitches : tmodeswitches=
[m_tp7,m_all,m_tp_procvar,m_duplicate_names]; [m_tp7,m_all,m_tp_procvar,m_duplicate_names];
{$ifdef gpc_mode}
gpcmodeswitches : tmodeswitches= gpcmodeswitches : tmodeswitches=
[m_gpc,m_all,m_tp_procvar]; [m_gpc,m_all,m_tp_procvar];
{$endif}
macmodeswitches : tmodeswitches= macmodeswitches : tmodeswitches=
[m_mac,m_all,m_result,m_cvar_support,m_mac_procvar]; [m_mac,m_all,m_result,m_cvar_support,m_mac_procvar];

3
compiler/globtype.pas
View File

@ -180,7 +180,8 @@ interface
{ Switches which can be changed by a mode (fpc,tp7,delphi) } { Switches which can be changed by a mode (fpc,tp7,delphi) }
tmodeswitch = (m_none,m_all, { needed for keyword } tmodeswitch = (m_none,m_all, { needed for keyword }
{ generic } { generic }
m_fpc,m_objfpc,m_delphi,m_tp7,m_gpc,m_mac, m_fpc,m_objfpc,m_delphi,m_tp7,m_mac,
{$ifdef fpc_mode}m_gpc,{$endif}
{ more specific } { more specific }
m_class, { delphi class model } m_class, { delphi class model }
m_objpas, { load objpas unit } m_objpas, { load objpas unit }

2
compiler/options.pas
View File

@ -1069,8 +1069,10 @@ begin
include(init_settings.moduleswitches,cs_support_macro); include(init_settings.moduleswitches,cs_support_macro);
'o' : //an alternative to -Mtp 'o' : //an alternative to -Mtp
SetCompileMode('TP',true); SetCompileMode('TP',true);
{$ifdef gpc_mode}
'p' : //an alternative to -Mgpc 'p' : //an alternative to -Mgpc
SetCompileMode('GPC',true); SetCompileMode('GPC',true);
{$endif}
's' : 's' :
include(init_settings.globalswitches,cs_constructor_name); include(init_settings.globalswitches,cs_constructor_name);
't' : 't' :

10
compiler/scanner.pas
View File

@ -282,9 +282,11 @@ implementation
current_settings.modeswitches:=objfpcmodeswitches; current_settings.modeswitches:=objfpcmodeswitches;
{ TODO: enable this for 2.3/2.9 } { TODO: enable this for 2.3/2.9 }
// include(current_settings.localswitches, cs_typed_addresses); // include(current_settings.localswitches, cs_typed_addresses);
end else end
if s='GPC' then {$ifdef gpc_mode}
else if s='GPC' then
current_settings.modeswitches:=gpcmodeswitches current_settings.modeswitches:=gpcmodeswitches
{$endif}
else else
if s='MACPAS' then if s='MACPAS' then
current_settings.modeswitches:=macmodeswitches current_settings.modeswitches:=macmodeswitches
@ -379,8 +381,10 @@ implementation
undef_system_macro('FPC_TP') undef_system_macro('FPC_TP')
else if (m_objfpc in oldmodeswitches) then else if (m_objfpc in oldmodeswitches) then
undef_system_macro('FPC_OBJFPC') undef_system_macro('FPC_OBJFPC')
{$ifdef gpc_mode}
else if (m_gpc in oldmodeswitches) then else if (m_gpc in oldmodeswitches) then
undef_system_macro('FPC_GPC') undef_system_macro('FPC_GPC')
{$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');
@ -391,8 +395,10 @@ implementation
def_system_macro('FPC_TP') def_system_macro('FPC_TP')
else if (m_objfpc in current_settings.modeswitches) then else if (m_objfpc in current_settings.modeswitches) then
def_system_macro('FPC_OBJFPC') def_system_macro('FPC_OBJFPC')
{$ifdef gpc_mode}
else if (m_gpc in current_settings.modeswitches) then else if (m_gpc in current_settings.modeswitches) then
def_system_macro('FPC_GPC') def_system_macro('FPC_GPC')
{$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');
end; end;