paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:49:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set filepos better

Browse Source 
git-svn-id: branches/debug_eh@41284 -
This commit is contained in:
florian 2019-02-10 17:53:52 +00:00
parent e2c83edc2a
commit b81cc7fbaf
1 changed files with 3 additions and 0 deletions

3
compiler/pstatmnt.pas
View File

@ -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