t_id
1340
t_adddate
2004/08/28
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443706200 | 934973 | False | True | Skipping test run because it is a unit |
Record count: 1
{ Source provided for Free Pascal Bug Report 3222 }
{ Submitted by "Christian Iversen" on 2004-07-28 }
{ e-mail: chrivers@iversen-net.dk }
(******************************************************************************
*
* (C)Copyright 1999-2003 Technetium Group. All Rights Reserved.
*
* File: LibXThread.pas
* Content:
*
* Compatiblity: 32-Bit, Delphi, FPC approved
*
* Programmer: Ivo Steinmann
* E-Mail: isteinmann@bluewin.ch
* Homepage: http://www.technetium.dk
*
* $Date: 2004/08/27 21:05:10 $
* $Rev: 1651 $
*
*****************************************************************************)
Unit tw3222;
{$mode delphi}
Interface
Type
XThreadMethod = Function: LongInt Of Object;
PThreadSyncRec = ^XThreadSyncRec;
XThreadSyncRec = Record
Method : XThreadMethod;
End;
PSyncRecArray = ^XSyncRecArray;
XSyncRecArray = Array[Byte] Of PThreadSyncRec;
Implementation
Function TXThreadSynchronizerProcess: LongInt;
Var
Local: PSyncRecArray;
Begin
With Local[0]^ Do
Begin
Result := Method; // Doesn't work
Result := Method(); // Works
End;
End;
End.