paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for a tclassrefdef as the target conversion type in

Browse Source 
asis_target_specific_typecheck, and if so get the real
    definition of its pointedtype rather than of the classrefdef
    itself (the latter would never be different from the original
    one, since there are no formal external classrefdef definitions)

git-svn-id: branches/jvmbackend@18467 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:02:17 +00:00
parent 03af03e696
commit d13769204e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/jvm/njvmcnv.pas
View File

@ -525,7 +525,10 @@ implementation
realtodef: tdef;
begin
realfromdef:=maybe_find_real_class_definition(node.left.resultdef,false);
realtodef:=maybe_find_real_class_definition(node.right.resultdef,false);
realtodef:=node.right.resultdef;
if realtodef.typ=classrefdef then
realtodef:=tclassrefdef(realtodef).pointeddef;
realtodef:=maybe_find_real_class_definition(realtodef,false);
if is_record(realtodef) then
result:=