mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 07:26:24 +02:00
* add parameter cleanup nodes to the call cleanup block (mantis #38316)
git-svn-id: trunk@48130 -
This commit is contained in:
parent
b7c519de81
commit
5c2303a76b
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -18637,6 +18637,7 @@ tests/webtbs/tw38309.pp svneol=native#text/pascal
|
|||||||
tests/webtbs/tw38310a.pp svneol=native#text/pascal
|
tests/webtbs/tw38310a.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw38310b.pp svneol=native#text/pascal
|
tests/webtbs/tw38310b.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw38310c.pp svneol=native#text/pascal
|
tests/webtbs/tw38310c.pp svneol=native#text/pascal
|
||||||
|
tests/webtbs/tw38316.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw3833.pp svneol=native#text/plain
|
tests/webtbs/tw3833.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw38337.pp svneol=native#text/plain
|
tests/webtbs/tw38337.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw38339.pp svneol=native#text/plain
|
tests/webtbs/tw38339.pp svneol=native#text/plain
|
||||||
|
@ -928,7 +928,10 @@ implementation
|
|||||||
reused above) }
|
reused above) }
|
||||||
left:=ctemprefnode.create(paratemp);
|
left:=ctemprefnode.create(paratemp);
|
||||||
end;
|
end;
|
||||||
|
{ add the finish statements to the call cleanup block }
|
||||||
addstatement(finistat,ctempdeletenode.create(paratemp));
|
addstatement(finistat,ctempdeletenode.create(paratemp));
|
||||||
|
aktcallnode.add_done_statement(finiblock);
|
||||||
|
|
||||||
firstpass(fparainit);
|
firstpass(fparainit);
|
||||||
firstpass(left);
|
firstpass(left);
|
||||||
end;
|
end;
|
||||||
|
21
tests/webtbs/tw38316.pp
Normal file
21
tests/webtbs/tw38316.pp
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
{ %opt=-gh }
|
||||||
|
|
||||||
|
program project1;
|
||||||
|
|
||||||
|
procedure P1(A: array of Integer);
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure P2(A: array of Integer);
|
||||||
|
begin
|
||||||
|
P1(A);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
A: array [0..2] of Integer;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
HaltOnNotReleased := true;
|
||||||
|
for i := 0 to 10 do
|
||||||
|
P2(A);
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user