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

* don't generate rtti for errordef

Browse Source
This commit is contained in:
peter 2003-12-23 22:13:26 +00:00
parent d298043d6b
commit 46769ccfcb
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symsym.pas
View File

@ -2617,6 +2617,9 @@ implementation
if not(p.typ=typesym) then if not(p.typ=typesym) then
internalerror(200108261); internalerror(200108261);
def:=tstoreddef(ttypesym(p).restype.def); def:=tstoreddef(ttypesym(p).restype.def);
{ there is an error, skip rtti info }
if def.deftype=errordef then
exit;
{ only create rtti once for each definition } { only create rtti once for each definition }
if not(df_has_rttitable in def.defoptions) then if not(df_has_rttitable in def.defoptions) then
begin begin
@ -2684,7 +2687,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.138 2003-12-12 12:09:40 marco Revision 1.139 2003-12-23 22:13:26 peter
* don't generate rtti for errordef
Revision 1.138 2003/12/12 12:09:40 marco
* always generate RTTI patch from peter * always generate RTTI patch from peter
Revision 1.137 2003/12/01 18:44:15 peter Revision 1.137 2003/12/01 18:44:15 peter