paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed line information for constructor code added to new block while

Browse Source 
generating the afterconstruction code

git-svn-id: trunk@34450 -
This commit is contained in:
Jonas Maebe 2016-09-08 14:18:50 +00:00
parent d22b83ee73
commit adcf07aabb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/psub.pas
View File

@ -743,12 +743,13 @@ implementation
if assigned(srsym) and if assigned(srsym) and
(srsym.typ=procsym) then (srsym.typ=procsym) then
begin begin
current_filepos:=exitpos; current_filepos:=entrypos;
constructionblock:=internalstatements(newstatement); constructionblock:=internalstatements(newstatement);
{ first execute all constructor code. If no exception { first execute all constructor code. If no exception
occurred then we will execute afterconstruction, occurred then we will execute afterconstruction,
otherwise we won't (the exception will jump over us) } otherwise we won't (the exception will jump over us) }
addstatement(newstatement,tocode); addstatement(newstatement,tocode);
current_filepos:=exitpos;
{ if implicit finally node wasn't created, then exit label and { if implicit finally node wasn't created, then exit label and
finalization code must be handled here and placed before finalization code must be handled here and placed before
afterconstruction } afterconstruction }