+ Test for bug report 20093

git-svn-id: trunk@18892 -

.gitattributes

@@ -11754,6 +11754,7 @@ tests/webtbs/tw2002.pp svneol=native#text/plain
 tests/webtbs/tw20035a.pp svneol=native#text/pascal
 tests/webtbs/tw20035b.pp svneol=native#text/pascal
 tests/webtbs/tw2004.pp svneol=native#text/plain
+tests/webtbs/tw20093.pp svneol=native#text/pascal
 tests/webtbs/tw2028.pp svneol=native#text/plain
 tests/webtbs/tw2030.pp svneol=native#text/plain
 tests/webtbs/tw2031.pp svneol=native#text/plain
@@ -12544,6 +12545,8 @@ tests/webtbs/tw9985.pp svneol=native#text/plain
 tests/webtbs/tw9985a.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
+tests/webtbs/uvmt.pp svneol=native#text/pascal
+tests/webtbs/uvmt_a.pp svneol=native#text/pascal
 tests/webtbs/uw0555.pp svneol=native#text/plain
 tests/webtbs/uw0701c.pp svneol=native#text/plain
 tests/webtbs/uw0701d.pp svneol=native#text/plain

tests/webtbs/tw20093.pp

@@ -0,0 +1,19 @@
+{ Test for bug report 20093
+  Reported 2011-08-29
+  a_tclass in unit uvmt
+  and tclass in unit uvmt_a
+  both generate the same symbol name for the VMT
+  }
+
+uses
+  uvmt, uvmt_a;
+
+var
+  a1 : tclass;
+  a2 : a_tclass;
+begin
+  a1 := tclass.create;
+  a2 := a_tclass.create;
+  a1.destroy;
+  a2.destroy;
+end.

tests/webtbs/uvmt.pp

@@ -0,0 +1,15 @@
+{ OPT=-gw }
+
+unit uvmt;
+
+{$mode objfpc}
+
+interface
+
+type
+  a_tclass = class (tobject)
+    x : integer;
+  end;
+implementation
+
+end.

tests/webtbs/uvmt_a.pp

@@ -0,0 +1,15 @@
+{ OPT=-gw }
+
+unit uvmt_a;
+
+{$mode objfpc}
+
+interface
+
+type
+  tclass = class (tobject)
+    x : integer;
+  end;
+implementation
+
+end.