mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
54 lines
1.1 KiB
ObjectPascal
54 lines
1.1 KiB
ObjectPascal
{ 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.
|