mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 17:49:07 +02:00
+ Patch from peter to fix make cycle
This commit is contained in:
parent
28ed277547
commit
5d024d4cc3
@ -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.
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user