paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get the real objectdef before checking whether it's equal to

Browse Source 
java_jlobject/java_fpcbaserecordtype in trecorddef.is_related()
    (could be a formal external definition)

git-svn-id: branches/jvmbackend@18461 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:01:46 +00:00
parent c264c24fb0
commit 6bcf796f8b
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/symdef.pas
View File

@ -491,7 +491,8 @@ interface
tsk_none, tsk_none,
tsk_anon_inherited, // anonymous inherited call tsk_anon_inherited, // anonymous inherited call
tsk_jvm_clone, // Java-style clone method tsk_jvm_clone, // Java-style clone method
tsk_record_deepcopy // deepcopy for records field by field tsk_record_deepcopy, // deepcopy for records field by field
tsk_empty // an empty routine
); );
{$ifdef oldregvars} {$ifdef oldregvars}
@ -3123,6 +3124,8 @@ implementation
function trecorddef.is_related(d: tdef): boolean; function trecorddef.is_related(d: tdef): boolean;
begin begin
if d.typ=objectdef then
d:=find_real_class_definition(tobjectdef(d),false);
{ records are implemented via classes in the JVM target, and are { records are implemented via classes in the JVM target, and are
all descendents of the java_fpcbaserecordtype class } all descendents of the java_fpcbaserecordtype class }
if (target_info.system=system_jvm_java32) and if (target_info.system=system_jvm_java32) and