paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 23:26:16 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defcmp.pas
View File

@ -772,7 +772,8 @@ implementation
objectdef : objectdef :
begin begin
{ class types and class reference type { 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 ( if (
is_class_or_interface(def_from) or is_class_or_interface(def_from) or
(def_from.deftype=classrefdef) (def_from.deftype=classrefdef)
@ -781,7 +782,7 @@ implementation
(torddef(tpointerdef(def_to).pointertype.def).typ=uvoid) then (torddef(tpointerdef(def_to).pointertype.def).typ=uvoid) then
begin begin
doconv:=tc_equal; doconv:=tc_equal;
eq:=te_convert_l1; eq:=te_convert_l2;
end; end;
end; end;
end; end;
@ -1262,7 +1263,10 @@ implementation
end. end.
{ {
$Log$ $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 * give penalty in float-float conversion when precision is lost
Revision 1.41 2004/01/06 02:17:44 florian Revision 1.41 2004/01/06 02:17:44 florian