From 157e5eb02ede521be72d84f0a0abff3b05ddf1e2 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 12 Jan 2007 09:12:13 +0000
Subject: [PATCH]   * fixed debug code for 64 bit

git-svn-id: trunk@5913 -
---
 rtl/unix/tthread.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/unix/tthread.inc b/rtl/unix/tthread.inc
index 58526780ca..02f1c56fd7 100644
--- a/rtl/unix/tthread.inc
+++ b/rtl/unix/tthread.inc
@@ -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