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

Add error when trying to typecast class type to class instance via explicit typecasting

Browse Source
This commit is contained in:
Pierre Muller 2022-02-15 14:37:24 +01:00
parent 27fb9086aa
commit 235a68232e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/defcmp.pas
View File

@ -280,8 +280,17 @@ implementation
if def_from.typ=objectdef then
def_from:=find_real_class_definition(tobjectdef(def_from),false);
if def_to.typ=objectdef then
def_to:=find_real_class_definition(tobjectdef(def_to),false);
begin
{ Emit error when trying to typecast a object/class type to
another object type, because this treats a VMT
like an ordinary object/class instance, allowing
to access instance fields, which is wrong PM }
def_to:=find_real_class_definition(tobjectdef(def_to),false);
if (def_from.typ=classrefdef) and (fromtreetype=loadvmtaddrn) and (cdo_explicit in cdoptions)
{ for jvm everything is a java class ... }
and (tobjectdef(def_to).objecttype <> odt_javaclass) then
comment(V_Error,'Explicit typecast object/class definition to objectdef/class definition');
end;
{ same def? then we've an exact match }
if def_from=def_to then
begin