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

* renamed afterconstructionblock to constructionblock

Browse Source 
git-svn-id: trunk@34449 -
This commit is contained in:
Jonas Maebe 2016-09-08 14:18:47 +00:00
parent 17ba06f7c8
commit d22b83ee73
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psub.pas
View File

@ -719,7 +719,7 @@ implementation
var
oldlocalswitches: tlocalswitches;
srsym: tsym;
afterconstructionblock,
constructionblock,
exceptblock,
newblock: tblocknode;
newstatement: tstatementnode;
@ -744,7 +744,7 @@ implementation
(srsym.typ=procsym) then
begin
current_filepos:=exitpos;
afterconstructionblock:=internalstatements(newstatement);
constructionblock:=internalstatements(newstatement);
{ first execute all constructor code. If no exception
occurred then we will execute afterconstruction,
otherwise we won't (the exception will jump over us) }
@ -773,7 +773,7 @@ implementation
cnilnode.create)),
ccallnode.create(nil,tprocsym(srsym),srsym.owner,load_self_node,[],nil),
nil));
tocode:=afterconstructionblock;
tocode:=constructionblock;
end
else
internalerror(200305106);