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

* fixed copy/paste error that didn't disable default inline support when

Browse Source 
switching from a mode that has it to a mode that doesn't have it (which
    meant that all modes had it, since the default FPC mode has it)
  * added default inline support to mode macpas to minimize breaking existing
    code due to this switch (only TP and ISO modes now don't have it by
    default)

git-svn-id: trunk@18265 -
This commit is contained in:
Jonas Maebe 2011-08-18 18:12:09 +00:00
parent cbb3e5700d
commit baf2a3f1fb
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -68,7 +68,7 @@ interface
[m_gpc,m_all,m_tp_procvar];
{$endif}
macmodeswitches =
[m_mac,m_all,m_cvar_support,m_mac_procvar,m_nested_procvars,m_non_local_goto,m_isolike_unary_minus];
[m_mac,m_all,m_cvar_support,m_mac_procvar,m_nested_procvars,m_non_local_goto,m_isolike_unary_minus,m_default_inline];
isomodeswitches =
[m_iso,m_all,m_tp_procvar,m_duplicate_names,m_nested_procvars,m_non_local_goto,m_isolike_unary_minus];

4
compiler/scanner.pas
View File

@ -309,9 +309,9 @@ implementation
end
else
begin
exclude(current_settings.localswitches,cs_ansistrings);
exclude(current_settings.localswitches,cs_do_inline);
if changeinit then
exclude(init_settings.localswitches,cs_ansistrings);
exclude(init_settings.localswitches,cs_do_inline);
end;
end;