paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2003-07-05 22:28:56 +00:00
parent 14bd8b899a
commit 3127f0a11d
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw2557.pp Normal file
View File

@ -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.