소스 검색

* compilation with -dEXTDEBUG fixed

florian 1 년 전
부모
커밋
2641f65bb7
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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]);