paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 22:30:23 +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 var
oldlocalswitches: tlocalswitches; oldlocalswitches: tlocalswitches;
srsym: tsym; srsym: tsym;
afterconstructionblock, constructionblock,
exceptblock, exceptblock,
newblock: tblocknode; newblock: tblocknode;
newstatement: tstatementnode; newstatement: tstatementnode;
@ -744,7 +744,7 @@ implementation
(srsym.typ=procsym) then (srsym.typ=procsym) then
begin begin
current_filepos:=exitpos; current_filepos:=exitpos;
afterconstructionblock:=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) }
@ -773,7 +773,7 @@ implementation
cnilnode.create)), cnilnode.create)),
ccallnode.create(nil,tprocsym(srsym),srsym.owner,load_self_node,[],nil), ccallnode.create(nil,tprocsym(srsym),srsym.owner,load_self_node,[],nil),
nil)); nil));
tocode:=afterconstructionblock; tocode:=constructionblock;
end end
else else
internalerror(200305106); internalerror(200305106);