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

* allow <any ordinal>(class/interface) type casts likewise it is allowed for class references and pointers

Browse Source 
git-svn-id: trunk@7811 -
This commit is contained in:
florian 2007-06-25 20:08:34 +00:00
parent 917aa80a13
commit 70284da435
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/defcmp.pas
View File

@ -275,6 +275,20 @@ implementation
eq:=te_convert_l2;
end;
end;
objectdef:
begin
if is_class_or_interface_or_dispinterface(def_from) and (cdo_explicit in cdoptions) then
begin
eq:=te_convert_l1;
if (fromtreetype=niln) then
begin
{ will be handled by the constant folding }
doconv:=tc_equal;
end
else
doconv:=tc_int_2_int;
end;
end;
classrefdef,
procvardef,
pointerdef :