diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas index 916d2f9bf1..84d47b8ca1 100644 --- a/compiler/pstatmnt.pas +++ b/compiler/pstatmnt.pas @@ -872,6 +872,7 @@ implementation t:ttoken; unit_found:boolean; oldcurrent_exceptblock: integer; + filepostry : tfileposinfo; begin p_default:=nil; p_specific:=nil; @@ -880,6 +881,7 @@ implementation { read statements to try } consume(_TRY); + filepostry:=current_filepos; first:=nil; inc(exceptblockcounter); oldcurrent_exceptblock := current_exceptblock; @@ -911,6 +913,7 @@ implementation current_exceptblock := exceptblockcounter; p_finally_block:=statements_til_end; try_statement:=ctryfinallynode.create(p_try_block,p_finally_block); + try_statement.fileinfo:=filepostry; end else begin