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

Allow cycle to finish successfully with -dEXTDEBUG without ALLOW_WARNINGS=1

Browse Source
This commit is contained in:
Pierre Muller 2022-10-30 23:31:57 +01:00
parent 6d3e3d06e2
commit 92cc78e723
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pass_2.pas
View File

@ -218,7 +218,11 @@ implementation
begin
if ((p.location.loc=loc_register) and (p.expectloc=loc_cregister))
or ((p.location.loc=loc_fpuregister) and (p.expectloc=loc_cfpuregister))
or ((p.location.loc=loc_reference) and (p.expectloc=loc_creference)) then
{$ifdef SUPPORT_MMX}
or ((p.location.loc=loc_mmxregister) and (p.expectloc=loc_cmmxregister))
{$endif SUPPORT_MMX}
or ((p.location.loc=loc_reference) and (p.expectloc=loc_creference))
or ((p.location.loc=loc_void) and (p.nodetype = calln)) then
Comment(V_Note,'Location ('+tcgloc2str[p.location.loc]+') not equal to expectloc ('+tcgloc2str[p.expectloc]+'): '+nodetype2str[p.nodetype])
else
Comment(V_Warning,'Location ('+tcgloc2str[p.location.loc]+') not equal to expectloc ('+tcgloc2str[p.expectloc]+'): '+nodetype2str[p.nodetype]);