From 4c9c767687142d789fc5a8b51c3ca5880029c35a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 7 Oct 2003 20:36:57 +0000
Subject: [PATCH]   * new bugs

---
 tests/webtbf/tw2721.pp | 8 ++++++++
 tests/webtbs/tw2721.pp | 8 ++++++++
 2 files changed, 16 insertions(+)

diff --git a/tests/webtbf/tw2721.pp b/tests/webtbf/tw2721.pp
index 24cc90ff85..273a0e3daa 100644
--- a/tests/webtbf/tw2721.pp
+++ b/tests/webtbf/tw2721.pp
@@ -13,9 +13,17 @@ type
 
   t2 = class(Tintfpersistent)
     public
+     // Different calling convention 
      function _Release: Integer; override; stdcall;
     end;
 
+function TIntfPersistent._Release: Integer; 
+begin
+end;
+
+function t2._Release: Integer;
+begin
+end;
 
 begin
 end.
diff --git a/tests/webtbs/tw2721.pp b/tests/webtbs/tw2721.pp
index 8cda528b3d..ba3bb5528f 100644
--- a/tests/webtbs/tw2721.pp
+++ b/tests/webtbs/tw2721.pp
@@ -14,6 +14,14 @@ type
      function _Release: Integer; override;
     end;
 
+function TIntfPersistent._Release: Integer; 
+begin
+end;
+
+function t2._Release: Integer;
+begin
+end;
+
 
 begin
 end.