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

* function returning int64 inlining fixed

Browse Source
This commit is contained in:
peter 2001-05-19 21:22:53 +00:00
parent 50faa8433f
commit 25535227b4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/n386cal.pas
View File

@ -460,7 +460,7 @@ implementation
para_alignment,para_offset);
end;
if inlined then
inlinecode.retoffset:=gettempofsizepersistant(4);
inlinecode.retoffset:=gettempofsizepersistant(Align(resulttype.def.size,target_info.stackalignment));
if ret_in_param(resulttype.def) then
begin
{ This must not be counted for C code
@ -1551,7 +1551,10 @@ begin
end.
{
$Log$
Revision 1.23 2001-05-16 15:11:42 jonas
Revision 1.24 2001-05-19 21:22:53 peter
* function returning int64 inlining fixed
Revision 1.23 2001/05/16 15:11:42 jonas
* added missign begin..end pair (noticed by Carl)
Revision 1.22 2001/04/18 22:02:01 peter