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

* prefere tobject-tobject over tobject-pointer

Browse Source
This commit is contained in:
peter 2004-01-31 14:50:54 +00:00
parent 814d6721f2
commit 2b02238e4a
1 changed files with 7 additions and 3 deletions

10
compiler/defcmp.pas
View File

@ -772,7 +772,8 @@ implementation
objectdef :
begin
{ class types and class reference type
can be assigned to void pointers }
can be assigned to void pointers, but it is less
preferred than assigning to a related objectdef }
if (
is_class_or_interface(def_from) or
(def_from.deftype=classrefdef)
@ -781,7 +782,7 @@ implementation
(torddef(tpointerdef(def_to).pointertype.def).typ=uvoid) then
begin
doconv:=tc_equal;
eq:=te_convert_l1;
eq:=te_convert_l2;
end;
end;
end;
@ -1262,7 +1263,10 @@ implementation
end.
{
$Log$
Revision 1.42 2004-01-14 21:44:16 peter
Revision 1.43 2004-01-31 14:50:54 peter
* prefere tobject-tobject over tobject-pointer
Revision 1.42 2004/01/14 21:44:16 peter
* give penalty in float-float conversion when precision is lost
Revision 1.41 2004/01/06 02:17:44 florian