From 28c55789765cb26db0b56cb7ab01cd7d4d492580 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 19 Nov 2006 22:07:28 +0000
Subject: [PATCH] * don't generate vmt for a generic
git-svn-id: trunk@5428 -
---
compiler/pdecl.pas | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 4fb6a7f5ad..4994c27066 100644
--- a/compiler/pdecl.pas
+++ b/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;