mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-04 21:38:34 +02:00
* set totypedef correctly when converting @class.classmethod to a procvar
of object in FPC mode (for llvm) git-svn-id: trunk@38863 -
This commit is contained in:
parent
807fcb3371
commit
eaafb166ad
@ -908,6 +908,7 @@ implementation
|
||||
not assigned(tloadnode(fromnode).left) then
|
||||
tloadnode(fromnode).set_mp(cloadvmtaddrnode.create(ctypenode.create(tdef(tloadnode(fromnode).symtable.defowner))));
|
||||
fromnode:=ctypeconvnode.create_proc_to_procvar(fromnode);
|
||||
ttypeconvnode(fromnode).totypedef:=todef;
|
||||
typecheckpass(fromnode);
|
||||
ttypeconvnode(hp).left:=nil;
|
||||
hp.free;
|
||||
|
Loading…
Reference in New Issue
Block a user