* new test

tests/webtbs/tw2942a.pp

@@ -0,0 +1,27 @@
+unit tw2942a;
+
+
+interface
+{$mode Delphi}
+
+Type
+  TIdStack = class
+  public
+    constructor Create; reintroduce; virtual;
+    destructor Destroy; override;
+    end;
+
+implementation
+
+constructor TIdStack.Create;
+begin
+inherited destroy;
+end;
+
+destructor TIdStack.Destroy;
+begin
+  inherited Destroy;
+end;
+
+
+end.

tests/webtbs/tw2942b.pp

@@ -0,0 +1,28 @@
+{ Source provided for Free Pascal Bug Report 2942 }
+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-06 }
+{ e-mail:  }
+unit tw2942b;
+
+interface
+{$mode Delphi}
+
+Uses tw2942a;
+type
+  TIdStackWindows = class(TIdStack)
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+     end;
+
+implementation
+
+constructor TIdStackWindows.Create;
+begin
+  inherited destroy;
+end;
+
+destructor TIdStackWindows.Destroy;
+begin
+  inherited Destroy;
+end;
+end.