* new bug

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: [email protected] }
+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.