paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 05:32:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Increase type safety: PRTLevent=type pointer;

Browse Source 
git-svn-id: trunk@6626 -
This commit is contained in:
daniel 2007-02-24 09:53:19 +00:00
parent 1a0a2c8adc
commit 6aad495cbb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/threadh.inc
View File

@ -20,7 +20,7 @@ const
type type
PEventState = pointer; PEventState = pointer;
PRTLEvent = pointer; // Windows=thandle, other=pointer to record. PRTLEvent = type pointer; // Windows=thandle, other=pointer to record.
TThreadFunc = function(parameter : pointer) : ptrint; TThreadFunc = function(parameter : pointer) : ptrint;
trtlmethod = procedure of object; trtlmethod = procedure of object;
@ -102,7 +102,6 @@ Function GetThreadManager(Var TM : TThreadManager) : Boolean;
Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean; Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean;
Function SetThreadManager(Const NewTM : TThreadManager) : Boolean; Function SetThreadManager(Const NewTM : TThreadManager) : Boolean;
{$ifndef DISABLE_NO_THREAD_MANAGER} {$ifndef DISABLE_NO_THREAD_MANAGER}
Procedure SetNoThreadManager;
{$endif DISABLE_NO_THREAD_MANAGER} {$endif DISABLE_NO_THREAD_MANAGER}
// Needs to be exported, so the manager can call it. // Needs to be exported, so the manager can call it.
procedure InitThreadVars(RelocProc : Pointer); procedure InitThreadVars(RelocProc : Pointer);