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

* give error when converting class to interface are not related

Browse Source
This commit is contained in:
peter 2004-10-12 14:33:41 +00:00
parent bb47a3d13a
commit f1ae6fb6d4
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncnv.pas
View File

@ -1371,9 +1371,19 @@ implementation
{ check if the types are related }
if (not(tobjectdef(left.resulttype.def).is_related(tobjectdef(resulttype.def)))) and
(not(tobjectdef(resulttype.def).is_related(tobjectdef(left.resulttype.def)))) then
CGMessage2(type_w_classes_not_related,
FullTypeName(left.resulttype.def,resulttype.def),
FullTypeName(resulttype.def,left.resulttype.def));
begin
{ Give an error when typecasting class to interface, this is compatible
with delphi }
if is_interface(resulttype.def) and
not is_interface(left.resulttype.def) then
CGMessage2(type_e_classes_not_related,
FullTypeName(left.resulttype.def,resulttype.def),
FullTypeName(resulttype.def,left.resulttype.def))
else
CGMessage2(type_w_classes_not_related,
FullTypeName(left.resulttype.def,resulttype.def),
FullTypeName(resulttype.def,left.resulttype.def))
end;
end;
end
@ -2455,7 +2465,10 @@ begin
end.
{
$Log$
Revision 1.154 2004-10-11 15:48:15 peter
Revision 1.155 2004-10-12 14:33:41 peter
* give error when converting class to interface are not related
Revision 1.154 2004/10/11 15:48:15 peter
* small regvar for para fixes
* function tvarsym.is_regvar added
* tvarsym.getvaluesize removed, use getsize instead