* don't generate vmt for a generic

git-svn-id: trunk@5428 -

compiler/pdecl.pas

@@ -536,7 +536,8 @@ implementation
                   begin
                     { Build VMT indexes, skip for type renaming and forward classes }
                     if (hdef.typesym=newtype) and
-                       not(oo_is_forward in tobjectdef(hdef).objectoptions) then
+                       not(oo_is_forward in tobjectdef(hdef).objectoptions) and
+                       not(df_generic in hdef.defoptions) then
                       begin
                         vmtbuilder:=TVMTBuilder.Create(tobjectdef(hdef));
                         vmtbuilder.generate_vmt;