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

* allow classref-classref always when explicit

Browse Source
This commit is contained in:
peter 2002-12-18 21:37:36 +00:00
parent c6536fe0b3
commit 908c2c1ca7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defcmp.pas
View File

@ -877,7 +877,8 @@ implementation
else
begin
doconv:=tc_equal;
if tobjectdef(tclassrefdef(def_from).pointertype.def).is_related(
if explicit or
tobjectdef(tclassrefdef(def_from).pointertype.def).is_related(
tobjectdef(tclassrefdef(def_to).pointertype.def)) then
eq:=te_convert_l1;
end;
@ -1192,7 +1193,10 @@ implementation
end.
{
$Log$
Revision 1.8 2002-12-15 22:37:53 peter
Revision 1.9 2002-12-18 21:37:36 peter
* allow classref-classref always when explicit
Revision 1.8 2002/12/15 22:37:53 peter
* give conversions from pointer to pwidechar a penalty (=prefer pchar)
Revision 1.7 2002/12/11 22:40:12 peter