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

* compilation with -dEXTDEBUG fixed

Browse Source
This commit is contained in:
florian 2024-03-28 15:07:35 +01:00
parent 22e9033076
commit 2641f65bb7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pass_1.pas
View File

@ -207,7 +207,7 @@ implementation
(tnf_pass1_done in hp.transientflags);
include(p.transientflags,tnf_pass1_done);
{$ifdef EXTDEBUG}
if not(nf_error in p.flags) then
if not(tnf_error in p.transientflags) then
begin
if (p.expectloc=LOC_INVALID) then
Comment(V_Warning,'Expectloc is not set in firstpass: '+nodetype2str[p.nodetype]);