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

* removed initialisation of unused fparacopyback from tcallparanode.copy_value_by_ref_para

Browse Source 
git-svn-id: trunk@45822 -
This commit is contained in:
Jonas Maebe 2020-07-21 17:57:45 +00:00
parent adf064cbb4
commit 924ffe6538
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncal.pas
View File

@ -731,7 +731,6 @@ implementation
procedure tcallparanode.copy_value_by_ref_para; procedure tcallparanode.copy_value_by_ref_para;
var var
initstat, initstat,
copybackstat,
finistat: tstatementnode; finistat: tstatementnode;
finiblock: tblocknode; finiblock: tblocknode;
paratemp: ttempcreatenode; paratemp: ttempcreatenode;
@ -754,7 +753,6 @@ implementation
if not is_array_constructor(left.resultdef) then if not is_array_constructor(left.resultdef) then
begin begin
fparainit:=internalstatements(initstat); fparainit:=internalstatements(initstat);
fparacopyback:=internalstatements(copybackstat);
finiblock:=internalstatements(finistat); finiblock:=internalstatements(finistat);
paratemp:=nil; paratemp:=nil;
@ -931,10 +929,8 @@ implementation
left:=ctemprefnode.create(paratemp); left:=ctemprefnode.create(paratemp);
end; end;
addstatement(finistat,ctempdeletenode.create(paratemp)); addstatement(finistat,ctempdeletenode.create(paratemp));
addstatement(copybackstat,finiblock);
firstpass(fparainit); firstpass(fparainit);
firstpass(left); firstpass(left);
firstpass(fparacopyback);
end; end;
end; end;