From 462ab6c72e4d77bcdf82db8fb7fcc5504178b991 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 12 Jun 2002 18:01:06 +0000
Subject: [PATCH]   + added

---
 tests/webtbf/tw1995.pp | 44 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 tests/webtbf/tw1995.pp

diff --git a/tests/webtbf/tw1995.pp b/tests/webtbf/tw1995.pp
new file mode 100644
index 0000000000..e6958eac3a
--- /dev/null
+++ b/tests/webtbf/tw1995.pp
@@ -0,0 +1,44 @@
+{ %FAIL }
+unit tw1995;
+
+interface
+
+type
+  TMemoryManager = record
+    FreememSize : Function(p:pointer;Size:Longint):Longint;
+  end;
+
+  TMemoryManager2 = record
+    FreememSize : Function(var p:pointer;Size:Longint):Longint;
+  end;
+
+  Function CFreeMemSize(var p:pointer;Size:Longint):Longint;
+  Function CFreeMemSize2(p:pointer;Size:Longint):Longint;
+
+
+Const
+ CMemoryManager : TMemoryManager =
+    (
+      FreememSize : {$ifdef fpc}@{$endif}CFreememSize;
+    );
+
+ CMemoryManager2 : TMemoryManager2 =
+    (
+      FreememSize : {$ifdef fpc}@{$endif}CFreememSize2;
+    );
+
+implementation
+
+Function CFreeMemSize(var p:pointer;Size:Longint):Longint;
+begin
+  CFreeMemSize:=0;
+end;
+
+Function CFreeMemSize2(p:pointer;Size:Longint):Longint;
+begin
+  CFreeMemSize2:=0;
+end;
+
+end.
+
+