mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 13:49:11 +02:00
* don't skip pushing self parameters for methods of empty structures
git-svn-id: branches/jvmbackend@18587 -
This commit is contained in:
parent
00086c3dfc
commit
874095a1c0
@ -138,8 +138,11 @@ implementation
|
|||||||
|
|
||||||
procedure tcgcallparanode.push_value_para;
|
procedure tcgcallparanode.push_value_para;
|
||||||
begin
|
begin
|
||||||
{ we've nothing to push when the size of the parameter is 0 }
|
{ we've nothing to push when the size of the parameter is 0
|
||||||
if left.resultdef.size=0 then
|
-- 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;
|
exit;
|
||||||
|
|
||||||
{ Move flags and jump in register to make it less complex }
|
{ Move flags and jump in register to make it less complex }
|
||||||
|
Loading…
Reference in New Issue
Block a user