+ Patch from peter to fix make cycle

This commit is contained in:
michael 2003-11-27 10:28:41 +00:00
parent 28ed277547
commit 5d024d4cc3
5 changed files with 27 additions and 10 deletions

View File

@ -318,7 +318,14 @@ Function GetRunError(Errno : Byte) : String;
begin
Result:=RunErrorArray[Errno];
If length(Result)=0 then
{$ifdef VER1_0}
begin
Str(Errno,Result);
Result:=RunUnknown+Result;
end;
{$else}
Result:=RunUnknown+Str(Errno);
{$endif}
end;
end.

View File

@ -71,7 +71,9 @@ Function GetThreadManager(Var TM : TThreadManager) : Boolean;
Function SetThreadManager(Const NewTM : TThreadManager; Var OldTM : TThreadManager) : Boolean;
Procedure SetNoThreadManager;
// Needs to be exported, so the manager can call it.
{$ifdef HASTHREADVAR}
procedure InitThreadVars(RelocProc : Pointer);
{$endif HASTHREADVAR}
procedure InitThread(stklen:cardinal);
{*****************************************************************************
@ -117,7 +119,10 @@ procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
{
$Log$
Revision 1.12 2003-11-26 20:10:59 michael
Revision 1.13 2003-11-27 10:28:41 michael
+ Patch from peter to fix make cycle
Revision 1.12 2003/11/26 20:10:59 michael
+ New threadmanager implementation
Revision 1.11 2003/10/01 21:00:09 peter

View File

@ -376,10 +376,12 @@ begin
DoneCriticalSection :=@SysDoneCriticalSection;
EnterCriticalSection :=@SysEnterCriticalSection;
LeaveCriticalSection :=@SysLeaveCriticalSection;
{$ifdef HASTHREADVAR}
InitThreadVar :=@SysInitThreadVar;
RelocateThreadVar :=@SysRelocateThreadVar;
AllocateThreadVars :=@SysAllocateThreadVars;
ReleaseThreadVars :=@SysReleaseThreadVars;
{$endif HASTHREADVAR}
end;
SetThreadManager(WinThreadManager,Dummy);
InitHeapMutexes;
@ -391,7 +393,10 @@ end.
{
$Log$
Revision 1.7 2003-11-26 20:10:59 michael
Revision 1.8 2003-11-27 10:28:41 michael
+ Patch from peter to fix make cycle
Revision 1.7 2003/11/26 20:10:59 michael
+ New threadmanager implementation
Revision 1.6 2003/10/01 21:00:09 peter