From 3127f0a11d8a36d89092f075a38f3580b961e821 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 5 Jul 2003 22:28:56 +0000
Subject: [PATCH]   * new bug

---
 tests/webtbs/tw2557.pp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 tests/webtbs/tw2557.pp

diff --git a/tests/webtbs/tw2557.pp b/tests/webtbs/tw2557.pp
new file mode 100644
index 0000000000..9a13e1a70a
--- /dev/null
+++ b/tests/webtbs/tw2557.pp
@@ -0,0 +1,22 @@
+{ Source provided for Free Pascal Bug Report 2557 }
+{ Submitted by "Sergey Kosarevsky" on  2003-07-01 }
+{ e-mail: netsurfer@au.ru }
+Unit tw2557;
+
+Interface
+
+Type tVMThread=Class;
+
+Type tInstructionProcessor=Procedure(Thread:tVMThread) Of Object;
+
+Const MAX_OPCODES=1;
+
+Type tVMThread=Class       Private
+        Class Procedure Opcode_HLT(Thread:tVMThread);
+     End;
+
+Const MappingTable:Array[1..MAX_OPCODES] Of tInstructionProcessor=
+       (@tVMThread.Opcode_HLT);
+
+Begin
+End.