paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 20:39:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test shall fail

Browse Source
This commit is contained in:
peter 2003-07-08 15:58:13 +00:00
parent 38616d29d6
commit c2b929017a
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/webtbs/tw2557.pp
View File

@ -1,24 +0,0 @@
{ Source provided for Free Pascal Bug Report 2557 }
{ Submitted by "Sergey Kosarevsky" on 2003-07-01 }
{ e-mail: netsurfer@au.ru }
Unit tw2557;
{$mode objfpc}
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.