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

* fixed spurious "Expectloc is not set in firstpass" when compiler is compiled with EXTDEBUG, and

Browse Source 
there's a node that's converted to another node in pass 1

git-svn-id: branches/z80@45058 -
This commit is contained in:
nickysn 2020-04-24 21:37:13 +00:00
parent 26ba399a66
commit ac3eda1360
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pass_1.pas
View File

@ -189,18 +189,18 @@ implementation
p:=hp;
end;
if codegenerror then
include(p.flags,nf_error)
else
begin
{$ifdef EXTDEBUG}
if (p.expectloc=LOC_INVALID) then
Comment(V_Warning,'Expectloc is not set in firstpass: '+nodetype2str[p.nodetype]);
{$endif EXTDEBUG}
end;
include(p.flags,nf_error);
end;
until not assigned(hp) or
(nf_pass1_done in hp.flags);
include(p.flags,nf_pass1_done);
{$ifdef EXTDEBUG}
if not(nf_error in p.flags) then
begin
if (p.expectloc=LOC_INVALID) then
Comment(V_Warning,'Expectloc is not set in firstpass: '+nodetype2str[p.nodetype]);
end;
{$endif EXTDEBUG}
codegenerror:=codegenerror or oldcodegenerror;
current_settings.localswitches:=oldlocalswitches;
current_filepos:=oldpos;