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

+ bit 6 of tpropinfo.propprocs is set, if the property contains a

Browse Source 
constant index
This commit is contained in:
florian 1998-09-20 08:31:29 +00:00
parent 81bce6dd30
commit 8aa2cc1118
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symdef.inc
View File

@ -2831,7 +2831,11 @@
end; end;
begin begin
proctypesinfo:=0;
if (ppropertysym(sym)^.options and ppo_indexed)<>0 then
proctypesinfo:=$40
else
proctypesinfo:=0;
if (sym^.typ=propertysym) and ((sym^.properties and sp_published)<>0) then if (sym^.typ=propertysym) and ((sym^.properties and sp_published)<>0) then
begin begin
rttilist^.concat(new(pai_const,init_symbol(strpnew(lab2str(ppropertysym(sym)^.proptype^.get_rtti_label))))); rttilist^.concat(new(pai_const,init_symbol(strpnew(lab2str(ppropertysym(sym)^.proptype^.get_rtti_label)))));
@ -2965,7 +2969,11 @@
{ {
$Log$ $Log$
Revision 1.44 1998-09-19 15:23:58 florian Revision 1.45 1998-09-20 08:31:29 florian
+ bit 6 of tpropinfo.propprocs is set, if the property contains a
constant index
Revision 1.44 1998/09/19 15:23:58 florian
* rtti for ordtypes corrected * rtti for ordtypes corrected
Revision 1.43 1998/09/18 17:12:40 florian Revision 1.43 1998/09/18 17:12:40 florian