Bladeren bron

* set correct fileinfo for statements_til_end() block

git-svn-id: trunk@42044 -
Jonas Maebe 6 jaren geleden
bovenliggende
commit
f76cde1c4c
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  1. 2 0
      compiler/pstatmnt.pas

+ 2 - 0
compiler/pstatmnt.pas

@@ -109,6 +109,8 @@ implementation
            end;
            end;
          consume(_END);
          consume(_END);
          statements_til_end:=cblocknode.create(first);
          statements_til_end:=cblocknode.create(first);
+         if assigned(first) then
+           statements_til_end.fileinfo:=first.fileinfo;
       end;
       end;