mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 12:39:24 +02:00
* fixed debug code for 64 bit
git-svn-id: trunk@5913 -
This commit is contained in:
parent
d2c8e7429e
commit
157e5eb02e
@ -76,7 +76,7 @@ var
|
||||
begin
|
||||
WRITE_DEBUG('ThreadFunc is here...');
|
||||
LThread := TThread(parameter);
|
||||
WRITE_DEBUG('thread initing, parameter = ', LongInt(LThread));
|
||||
WRITE_DEBUG('thread initing, parameter = ', ptrint(LThread));
|
||||
try
|
||||
// wait until AfterConstruction has been called, so we cannot
|
||||
// free ourselves before TThread.Create has finished
|
||||
|
Loading…
Reference in New Issue
Block a user