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

* patch by Christo Crause: reg. allocation information if non-volatile registers

Browse Source 
are used for parameter passing as it is might happen on avr, resolves #36079

git-svn-id: trunk@43390 -
(cherry picked from commit fabe4cc067)

# Conflicts:
#	.gitattributes
This commit is contained in:
florian 2019-11-04 20:14:46 +00:00
parent b04f398d27
commit 201a89504e
2 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcal.pas
View File

@ -1048,8 +1048,6 @@ implementation
begin
reorder_parameters;
pushparas;
{ free the resources allocated for the parameters }
freeparas;
end;
if callref then
@ -1085,8 +1083,6 @@ implementation
begin
reorder_parameters;
pushparas;
{ free the resources allocated for the parameters }
freeparas;
end;
cg.alloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,regs_to_save_int);
@ -1146,8 +1142,6 @@ implementation
begin
reorder_parameters;
pushparas;
{ free the resources allocated for the parameters }
freeparas;
end;
if callref then
@ -1175,6 +1169,10 @@ implementation
extra_post_call_code;
end;
{ free the resources allocated for the parameters }
if assigned(left) then
freeparas;
{ Need to remove the parameters from the stack? }
if procdefinition.proccalloption in clearstack_pocalls then
begin

18
tests/webtbs/tw36079.pp Normal file
View File

@ -0,0 +1,18 @@
{ %OPT=-O- -O1 }
program tshlshr;
procedure test(value, required: int64);
begin
if value <> required then
halt(1)
else
halt(0);
end;
var
longres : longint;
begin
longres := 32768;
test(longres, 32768);
end.