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

+ Patch to prefer getpropinfo(ptypeinfo,name) over getpropinfo(tobject,name) when called with getpropinfo(aclass.classinfo) from Peter

Browse Source
This commit is contained in:
michael 2003-11-26 15:11:42 +00:00
parent 133701734b
commit 224a670b4a
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

@ -864,7 +864,8 @@ implementation
is_voidpointer(def_from) then is_voidpointer(def_from) then
begin begin
doconv:=tc_equal; doconv:=tc_equal;
eq:=te_convert_l1; { prefer pointer-pointer assignments }
eq:=te_convert_l2;
end end
else else
{ nil is compatible with class instances and interfaces } { nil is compatible with class instances and interfaces }
@ -1249,7 +1250,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.37 2003-11-10 19:09:29 peter Revision 1.38 2003-11-26 15:11:42 michael
+ Patch to prefer getpropinfo(ptypeinfo,name) over getpropinfo(tobject,name) when called with getpropinfo(aclass.classinfo) from Peter
Revision 1.37 2003/11/10 19:09:29 peter
* procvar default value support * procvar default value support
Revision 1.36 2003/11/04 22:30:15 florian Revision 1.36 2003/11/04 22:30:15 florian