t_id
1340
t_adddate
2004/08/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-348381825 | 805020 | 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.