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

* patch from Sven equal to r31911 backported to 3.0.x

Browse Source 
git-svn-id: branches/fixes_3_0@33856 -
This commit is contained in:
marco 2016-05-30 09:28:56 +00:00
parent 5addbae947
commit 80d45f6b2d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgvmt.pas
View File

@ -982,14 +982,16 @@ implementation
for i:=0 to st.DefList.Count-1 do
begin
def:=tdef(st.DefList[i]);
{ skip generics and generic constraints }
if [df_generic,df_genconstraint]*def.defoptions<>[] then
continue;
case def.typ of
recorddef :
do_write_persistent_type_info(trecorddef(def).symtable,is_global);
objectdef :
begin
{ Skip generics and forward defs }
if ([df_generic,df_genconstraint]*def.defoptions<>[]) or
(oo_is_forward in tobjectdef(def).objectoptions) then
{ Skip forward defs }
if (oo_is_forward in tobjectdef(def).objectoptions) then
continue;
do_write_persistent_type_info(tobjectdef(def).symtable,is_global);
{ Write also VMT if not done yet }