paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* when determining the type to use for checkcast, first always dereference

Browse Source 
pointers to implicit pointer types so that afterwards we can set the
    appropriate corresponding class type

git-svn-id: branches/jvmbackend@18668 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:22:52 +00:00
parent 6cced31157
commit 7286e3b645
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

@ -1192,10 +1192,11 @@ implementation
else
checkdef:=node.right.resultdef;
{ replace special types with their equivalent class type }
if (checkdef.typ=pointerdef) and
jvmimplicitpointertype(tpointerdef(checkdef).pointeddef) then
checkdef:=tpointerdef(checkdef).pointeddef;
if checkdef=voidpointertype then
checkdef:=java_jlobject
else if checkdef.typ=pointerdef then
checkdef:=tpointerdef(checkdef).pointeddef
else if checkdef.typ=enumdef then
checkdef:=tenumdef(checkdef).classdef
else if checkdef.typ=setdef then