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

+ Added overloaded version of SetThreadManager without old parameter

Browse Source
This commit is contained in:
michael 2003-11-29 17:29:32 +00:00
parent 2f103d8153
commit f42fedd0c3
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/thread.inc
View File

@ -173,9 +173,15 @@ end;
Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean; Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean;
begin
GetThreadManager(OldTM);
Result:=SetThreadManager(NewTM);
end;
Function SetThreadManager(Const NewTM : TThreadManager) : Boolean;
begin begin
Result:=True; Result:=True;
OldTM:=CurrentTM;
If Assigned(CurrentTM.DoneManager) then If Assigned(CurrentTM.DoneManager) then
Result:=CurrentTM.DoneManager(); Result:=CurrentTM.DoneManager();
If Result then If Result then
@ -317,7 +323,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2003-11-26 20:10:59 michael Revision 1.5 2003-11-29 17:29:32 michael
+ Added overloaded version of SetThreadManager without old parameter
Revision 1.4 2003/11/26 20:10:59 michael
+ New threadmanager implementation + New threadmanager implementation
Revision 1.3 2002/11/14 12:40:06 jonas Revision 1.3 2002/11/14 12:40:06 jonas

6
rtl/inc/threadh.inc
View File

@ -69,6 +69,7 @@ type
Function GetThreadManager(Var TM : TThreadManager) : Boolean; 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;
Procedure SetNoThreadManager; Procedure SetNoThreadManager;
// Needs to be exported, so the manager can call it. // Needs to be exported, so the manager can call it.
{$ifdef HASTHREADVAR} {$ifdef HASTHREADVAR}
@ -119,7 +120,10 @@ procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
{ {
$Log$ $Log$
Revision 1.13 2003-11-27 10:28:41 michael Revision 1.14 2003-11-29 17:29:32 michael
+ Added overloaded version of SetThreadManager without old parameter
Revision 1.13 2003/11/27 10:28:41 michael
+ Patch from peter to fix make cycle + Patch from peter to fix make cycle
Revision 1.12 2003/11/26 20:10:59 michael Revision 1.12 2003/11/26 20:10:59 michael