blob: ca6c1830d307f3c93ea23516e43b48645afe7521 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
{ 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.
|
