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

* ignore warnings caused by boolean expression simplification

Browse Source 
git-svn-id: trunk@35231 -
This commit is contained in:
florian 2017-01-04 16:33:31 +00:00
parent 331bb95c5e
commit 42cde51805
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -2301,6 +2301,8 @@ begin
end;
'p':
begin
{$push}
{$warn 6018 off} { Unreachable code due to compile time evaluation }
if (target_info.system in systems_embedded) and
ControllerSupport then
begin
@ -2311,6 +2313,7 @@ begin
end
else
IllegalPara(opt);
{$pop}
end;
'P':
begin
@ -4104,6 +4107,8 @@ begin
if i in features then
def_system_macro('FPC_HAS_FEATURE_'+featurestr[i]);
{$push}
{$warn 6018 off} { Unreachable code due to compile time evaluation }
if ControllerSupport and (target_info.system in systems_embedded) and
(init_settings.controllertype<>ct_none) then
begin
@ -4119,6 +4124,7 @@ begin
set_system_macro('FPC_BOOTSIZE',tostr(bootsize));
end;
end;
{$pop}
option.free;
Option:=nil;

4
compiler/pmodules.pas
View File

@ -398,12 +398,14 @@ implementation
AddUnit('fpcylix');
AddUnit('dynlibs');
end;
{$push}
{$warn 6018 off} { Unreachable code due to compile time evaluation }
{ CPU targets with microcontroller support can add a controller specific unit }
if ControllerSupport and (target_info.system in systems_embedded) and
(current_settings.controllertype<>ct_none) and
(embedded_controllers[current_settings.controllertype].controllerunitstr<>'') then
AddUnit(embedded_controllers[current_settings.controllertype].controllerunitstr);
{$pop}
end;