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

* don't try to generate rtti if the type has an error

Browse Source 
git-svn-id: trunk@5271 -
This commit is contained in:
peter 2006-11-07 08:52:53 +00:00
parent a6a300cbbe
commit 99309202bc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecl.pas
View File

@ -553,9 +553,10 @@ implementation
hdef.typesym:=newtype; hdef.typesym:=newtype;
end; end;
{ Write tables if we are the typesym that defines { Write tables if there are no errors and we are the typesym that
this type. This will not be done for simple type renamings } defines this type, so this will not be done for simple type renamings }
if (hdef.typesym=newtype) then if (hdef.typ<>errordef) and
(hdef.typesym=newtype) then
begin begin
{ file position } { file position }
oldfilepos:=current_filepos; oldfilepos:=current_filepos;