paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 17:10:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for range error on some platforms

Browse Source 
git-svn-id: trunk@178 -
This commit is contained in:
Tomas Hajny 2005-06-03 04:52:24 +00:00
parent 809d10c0a6
commit d035b0c0d3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cthreads.pp
View File

@ -307,7 +307,7 @@ Type PINTRTLEvent = ^TINTRTLEvent;
function CGetCurrentThreadId : TThreadID;
begin
CGetCurrentThreadId:=dword(pthread_self());
CGetCurrentThreadId := TThreadID (pthread_self());
end;