paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 13:49:11 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcal.pas
View File

@ -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 }