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

* don't skip pushing self parameters for methods of empty structures

Browse Source 
git-svn-id: branches/jvmbackend@18587 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:12:53 +00:00
parent 00086c3dfc
commit 874095a1c0
1 changed files with 5 additions and 2 deletions

7
compiler/ncgcal.pas
View File

@ -138,8 +138,11 @@ implementation
procedure tcgcallparanode.push_value_para;
begin
{ we've nothing to push when the size of the parameter is 0 }
if left.resultdef.size=0 then
{ we've nothing to push when the size of the parameter is 0
-- except in case of the self parameter of an emptry record on e.g.
the JVM target }
if (left.resultdef.size=0) and
not(vo_is_self in parasym.varoptions) then
exit;
{ Move flags and jump in register to make it less complex }