paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix check for valid procdef in property rtti

Browse Source
This commit is contained in:
peter 2003-11-01 15:50:03 +00:00
parent e857800c13
commit aadc6dbf2b
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/symdef.pas
View File

@ -5299,8 +5299,9 @@ implementation
end
else
begin
{ When there was an error then procdef is not assigned }
if not assigned(proc.procdef) then
internalerror(200310074);
exit;
if not(po_virtualmethod in tprocdef(proc.procdef).procoptions) then
begin
rttiList.concat(Tai_const_symbol.Createname(tprocdef(proc.procdef).mangledname));
@ -6107,7 +6108,10 @@ implementation
end.
{
$Log$
Revision 1.186 2003-10-29 21:56:28 peter
Revision 1.187 2003-11-01 15:50:03 peter
* fix check for valid procdef in property rtti
Revision 1.186 2003/10/29 21:56:28 peter
* procsym.deref derefs only own procdefs
* reset paracount in procdef.deref so a second deref doesn't increase
the paracounts to invalid values