Merged revisions 1660 via svnmerge from

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

........
r1660 | florian | 2005-11-05 17:29:13 +0100 (Sa, 05 Nov 2005) | 2 lines

+ check vmt when loading one, fixes tw2318b

........

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

compiler/ncgutil.pas

@@ -2413,6 +2413,7 @@ 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);
       end;
 
 end.