mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 13:49:12 +02:00
* keep the node flags when replacing a call to a virtual class method with
a call to its wrapper git-svn-id: branches/jvmbackend@18708 -
This commit is contained in:
parent
e9d27c3efe
commit
2a9043f4bc
@ -566,6 +566,7 @@ implementation
|
||||
begin
|
||||
remove_hidden_paras;
|
||||
result:=ccallnode.create(left,tprocsym(sym),symtableproc,methodpointer,callnodeflags);
|
||||
result.flags:=flags;
|
||||
left:=nil;
|
||||
methodpointer:=nil;
|
||||
exit;
|
||||
|
Loading…
Reference in New Issue
Block a user