Browse Source

* compilation with -dEXTDEBUG fixed

florian 1 year ago
parent
commit
2641f65bb7
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pass_1.pas

+ 1 - 1
compiler/pass_1.pas

@@ -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]);