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

* keep the node flags when replacing a call to a virtual class method with

Browse Source 
a call to its wrapper

git-svn-id: branches/jvmbackend@18708 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:26:30 +00:00
parent e9d27c3efe
commit 2a9043f4bc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/jvm/njvmcal.pas
View File

@ -566,6 +566,7 @@ implementation
begin begin
remove_hidden_paras; remove_hidden_paras;
result:=ccallnode.create(left,tprocsym(sym),symtableproc,methodpointer,callnodeflags); result:=ccallnode.create(left,tprocsym(sym),symtableproc,methodpointer,callnodeflags);
result.flags:=flags;
left:=nil; left:=nil;
methodpointer:=nil; methodpointer:=nil;
exit; exit;