Merged revisions 2762-2763 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r2762 | florian | 2006-03-05 19:33:45 +0100 (So, 05 Mär 2006) | 2 lines
  
  * test vmt only for classes and objects
........
  r2763 | florian | 2006-03-05 19:57:36 +0100 (So, 05 Mär 2006) | 2 lines
  
  * fixed previous commit
........

git-svn-id: branches/fixes_2_0@2766 -

compiler/ncgutil.pas

@@ -2435,7 +2435,11 @@ implementation
         vmtreg:=cg.getaddressregister(list);
         cg.g_maybe_testself(list,href.base);
         cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,vmtreg);
-        cg.g_maybe_testvmt(list,vmtreg,objdef);
+
+        { test validity of VMT }
+        if not(is_interface(objdef)) and
+           not(is_cppclass(objdef)) then
+           cg.g_maybe_testvmt(list,vmtreg,objdef);
       end;
 
 end.