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

* don't insert checkcast operations for types that are considered to be

Browse Source 
te_equal

git-svn-id: branches/jvmbackend@18529 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:07:35 +00:00
parent e8ec2c45af
commit b8f6c42ec7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/jvm/njvmcnv.pas
View File

@ -494,8 +494,9 @@ implementation
get_most_nested_types(fromdef,todef);
fromarrtype:=jvmarrtype_setlength(fromdef);
toarrtype:=jvmarrtype_setlength(todef);
if not fromdef.is_related(todef) and
(((fromdef.typ<>objectdef) and
if (compare_defs(fromdef,todef,nothingn)<te_equal) and
not fromdef.is_related(todef) and
(((fromdef.typ in [objectdef,recorddef,stringdef]) and
not is_dynamic_array(fromdef)) or
(todef<>java_jlobject)) and
((fromarrtype in ['A','R']) or