paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to avoid expectloc not set after first pass error for call node

Browse Source 
git-svn-id: trunk@40309 -
This commit is contained in:
pierre 2018-11-13 15:51:32 +00:00
parent 122fd55564
commit cacd8f28eb
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/ncal.pas
View File

@ -1903,18 +1903,27 @@ implementation
var
lastinitstatement : tstatementnode;
begin
if not assigned(n) then
exit;
if not assigned(callinitblock) then
callinitblock:=internalstatements(lastinitstatement)
else
lastinitstatement:=laststatement(callinitblock);
begin
callinitblock:=internalstatements(lastinitstatement);
lastinitstatement.left.free;
lastinitstatement.left:=n;
firstpass(tnode(callinitblock));
exit;
end;
lastinitstatement:=laststatement(callinitblock);
{ all these nodes must be immediately typechecked, because this routine }
{ can be called from pass_1 (i.e., after typecheck has already run) and }
{ moreover, the entire blocks themselves are also only typechecked in }
{ pass_1, while the the typeinfo is already required after the }
{ typecheck pass for simplify purposes (not yet perfect, because the }
{ statementnodes themselves are not typechecked this way) }
firstpass(n);
addstatement(lastinitstatement,n);
firstpass(tnode(lastinitstatement));
{ Update expectloc for callinitblock }
callinitblock.expectloc:=lastinitstatement.expectloc;
end;
@ -1922,13 +1931,22 @@ implementation
var
lastdonestatement : tstatementnode;
begin
if not assigned(n) then
exit;
if not assigned(callcleanupblock) then
callcleanupblock:=internalstatements(lastdonestatement)
else
lastdonestatement:=laststatement(callcleanupblock);
begin
callcleanupblock:=internalstatements(lastdonestatement);
lastdonestatement.left.free;
lastdonestatement.left:=n;
firstpass(tnode(callcleanupblock));
exit;
end;
lastdonestatement:=laststatement(callcleanupblock);
{ see comments in add_init_statement }
firstpass(n);
addstatement(lastdonestatement,n);
firstpass(tnode(lastdonestatement));
{ Update expectloc for callcleanupblock }
callcleanupblock.expectloc:=lastdonestatement.expectloc;
end;