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

* reduce code size of dummy threading routines

Browse Source 
* threading manager of the embedded target uses only one dummy routine to reduce code size

git-svn-id: trunk@19169 -
This commit is contained in:
florian 2011-09-21 21:00:15 +00:00
parent 375f83c874
commit f14e0a25c6
1 changed files with 96 additions and 130 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

226
rtl/inc/thread.inc
View File

@ -43,10 +43,12 @@ Var
SysInitExceptions; SysInitExceptions;
{$endif FPC_HAS_FEATURE_EXCEPTIONS} {$endif FPC_HAS_FEATURE_EXCEPTIONS}
{$ifdef FPC_HAS_FEATURE_CONSOLEIO} {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
{$ifndef EMBEDDED}
{ Open all stdio fds again } { Open all stdio fds again }
SysInitStdio; SysInitStdio;
InOutRes:=0; InOutRes:=0;
// ErrNo:=0; // ErrNo:=0;
{$endif EMBEDDED}
{$endif FPC_HAS_FEATURE_CONSOLEIO} {$endif FPC_HAS_FEATURE_CONSOLEIO}
{$ifdef FPC_HAS_FEATURE_STACKCHECK} {$ifdef FPC_HAS_FEATURE_STACKCHECK}
{ Stack checking } { Stack checking }
@ -334,6 +336,7 @@ const
Procedure NoThreadError; Procedure NoThreadError;
begin begin
{$ifndef EMBEDDED}
{$ifdef FPC_HAS_FEATURE_CONSOLEIO} {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
If IsConsole then If IsConsole then
begin begin
@ -341,6 +344,7 @@ begin
Writeln(StdErr,SRecompileWithThreads); Writeln(StdErr,SRecompileWithThreads);
end; end;
{$endif FPC_HAS_FEATURE_CONSOLEIO} {$endif FPC_HAS_FEATURE_CONSOLEIO}
{$endif EMBEDDED}
RunError(232) RunError(232)
end; end;
@ -363,18 +367,6 @@ begin
result:=dword(-1); result:=dword(-1);
end; end;
procedure NoThreadSwitch; {give time to other threads}
begin
NoThreadError;
end;
function NoCloseThread (threadHandle : TThreadID):dword;
begin
Result:=0; // avoid warnings.
NoThreadError;
end;
function NoWaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword; {0=no timeout} function NoWaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword; {0=no timeout}
begin begin
NoThreadError; NoThreadError;
@ -399,7 +391,7 @@ begin
NoThreadError NoThreadError
else else
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
result:=ThreadID; result:=TThreadID(1);
end; end;
procedure NoCriticalSection(var CS); procedure NoCriticalSection(var CS);
@ -418,6 +410,7 @@ begin
NoThreadError NoThreadError
else else
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
Result:=-1;
end; end;
procedure NoInitThreadvar(var offset : dword;size : dword); procedure NoInitThreadvar(var offset : dword;size : dword);
@ -434,19 +427,7 @@ begin
end; end;
procedure NoAllocateThreadVars; function NoBasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
begin
NoThreadError;
end;
procedure NoReleaseThreadVars;
begin
NoThreadError;
end;
function noBasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
begin begin
if IsMultiThread then if IsMultiThread then
@ -456,7 +437,7 @@ begin
result:=nil; result:=nil;
end; end;
procedure nobasiceventdestroy(state:peventstate); procedure NoBasicEvent(state:peventstate);
begin begin
if IsMultiThread then if IsMultiThread then
@ -465,25 +446,7 @@ begin
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
end; end;
procedure nobasiceventResetEvent(state:peventstate); function NoBasicEventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
procedure nobasiceventSetEvent(state:peventstate);
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
function nobasiceventWaitFor(Timeout : Cardinal;state:peventstate) : longint;
begin begin
if IsMultiThread then if IsMultiThread then
@ -493,7 +456,7 @@ begin
result:=-1; result:=-1;
end; end;
function NORTLEventCreate :PRTLEvent; function NoRTLEventCreate :PRTLEvent;
begin begin
if IsMultiThread then if IsMultiThread then
@ -503,7 +466,7 @@ begin
result:=nil; result:=nil;
end; end;
procedure NORTLeventdestroy(state:pRTLEvent); procedure NoRTLEvent(state:pRTLEvent);
begin begin
if IsMultiThread then if IsMultiThread then
@ -512,8 +475,7 @@ begin
ThreadingAlreadyUsed:=true ThreadingAlreadyUsed:=true
end; end;
procedure NORTLeventSetEvent(state:pRTLEvent); procedure NoRTLEventWaitForTimeout(state:pRTLEvent;timeout : longint);
begin begin
if IsMultiThread then if IsMultiThread then
NoThreadError NoThreadError
@ -521,8 +483,8 @@ begin
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
end; end;
procedure NORTLeventResetEvent(state:pRTLEvent);
procedure NoRTLEventSync(m:trtlmethod;p:tprocedure);
begin begin
if IsMultiThread then if IsMultiThread then
NoThreadError NoThreadError
@ -530,32 +492,6 @@ begin
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
end; end;
procedure NORTLeventWaitFor(state:pRTLEvent);
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
procedure NORTLeventWaitForTimeout(state:pRTLEvent;timeout : longint);
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
procedure NORTLeventsync(m:trtlmethod;p:tprocedure);
begin
if IsMultiThread then
NoThreadError
else
ThreadingAlreadyUsed:=true;
end;
function NoSemaphoreInit: Pointer; function NoSemaphoreInit: Pointer;
begin begin
if IsMultiThread then if IsMultiThread then
@ -570,7 +506,7 @@ begin
NoThreadError; NoThreadError;
end; end;
procedure NoSemaphorePost(const FSem: Pointer); procedure NoSemaphore(const FSem: Pointer);
begin begin
if IsMultiThread then if IsMultiThread then
NoThreadError NoThreadError
@ -578,62 +514,92 @@ begin
ThreadingAlreadyUsed:=true; ThreadingAlreadyUsed:=true;
end; end;
procedure NoSemaphoreDestroy(const FSem: Pointer); const
begin NoThreadManager : TThreadManager = (
if IsMultiThread then InitManager : Nil;
NoThreadError DoneManager : Nil;
else {$ifdef EMBEDDED}
ThreadingAlreadyUsed:=true; { while this is pretty hacky, it reduces the size of typical embedded programs
end; and works fine on arm and avr }
BeginThread : @NoBeginThread;
Var EndThread : TEndThreadHandler(@NoThreadError);
NoThreadManager : TThreadManager; SuspendThread : TThreadHandler(@NoThreadError);
ResumeThread : TThreadHandler(@NoThreadError);
KillThread : TThreadHandler(@NoThreadError);
CloseThread : TThreadHandler(@NoThreadError);
ThreadSwitch : TThreadSwitchHandler(@NoThreadError);
WaitForThreadTerminate : TWaitForThreadTerminateHandler(@NoThreadError);
ThreadSetPriority : TThreadSetPriorityHandler(@NoThreadError);
ThreadGetPriority : TThreadGetPriorityHandler(@NoThreadError);
GetCurrentThreadId : @NoGetCurrentThreadId;
InitCriticalSection : TCriticalSectionHandler(@NoThreadError);
DoneCriticalSection : TCriticalSectionHandler(@NoThreadError);
EnterCriticalSection : TCriticalSectionHandler(@NoThreadError);
TryEnterCriticalSection: TCriticalSectionHandlerTryEnter(@NoThreadError);
LeaveCriticalSection : TCriticalSectionHandler(@NoThreadError);
InitThreadVar : TInitThreadVarHandler(@NoThreadError);
RelocateThreadVar : TRelocateThreadVarHandler(@NoThreadError);
AllocateThreadVars : @NoThreadError;
ReleaseThreadVars : @NoThreadError;
BasicEventCreate : TBasicEventCreateHandler(@NoThreadError);
basiceventdestroy : TBasicEventHandler(@NoThreadError);
basiceventResetEvent : TBasicEventHandler(@NoThreadError);
basiceventSetEvent : TBasicEventHandler(@NoThreadError);
basiceventWaitFor : TBasicEventWaitForHandler(@NoThreadError);
rtlEventCreate : TRTLCreateEventHandler(@NoThreadError);
rtleventdestroy : TRTLEventHandler(@NoThreadError);
rtleventSetEvent : TRTLEventHandler(@NoThreadError);
rtleventResetEvent : TRTLEventHandler(@NoThreadError);
rtleventWaitFor : TRTLEventHandler(@NoThreadError);
rtleventsync : TRTLEventSyncHandler(@NoThreadError);
rtleventwaitfortimeout : TRTLEventHandlerTimeout(@NoThreadError);
SemaphoreInit : TSempahoreInitHandler(@NoThreadError);
SemaphoreDestroy : TSemaphoreDestroyHandler(@NoThreadError);
SemaphorePost : TSemaphorePostHandler(@NoThreadError);
SemaphoreWait : TSemaphoreWaitHandler(@NoThreadError)
{$else EMBEDDED}
BeginThread : @NoBeginThread;
EndThread : @NoEndThread;
SuspendThread : @NoThreadHandler;
ResumeThread : @NoThreadHandler;
KillThread : @NoThreadHandler;
CloseThread : @NoThreadHandler;
ThreadSwitch : @NoThreadError;
WaitForThreadTerminate : @NoWaitForThreadTerminate;
ThreadSetPriority : @NoThreadSetPriority;
ThreadGetPriority : @NoThreadGetPriority;
GetCurrentThreadId : @NoGetCurrentThreadId;
InitCriticalSection : @NoCriticalSection;
DoneCriticalSection : @NoCriticalSection;
EnterCriticalSection : @NoCriticalSection;
TryEnterCriticalSection: @NoTryEnterCriticalSection;
LeaveCriticalSection : @NoCriticalSection;
InitThreadVar : @NoInitThreadVar;
RelocateThreadVar : @NoRelocateThreadVar;
AllocateThreadVars : @NoThreadError;
ReleaseThreadVars : @NoThreadError;
BasicEventCreate : @NoBasicEventCreate;
basiceventdestroy : @NoBasicEvent;
basiceventResetEvent : @NoBasicEvent;
basiceventSetEvent : @NoBasicEvent;
basiceventWaitFor : @NoBasiceventWaitFor;
rtlEventCreate : @NoRTLEventCreate;
rtleventdestroy : @NoRTLevent;
rtleventSetEvent : @NoRTLevent;
rtleventResetEvent : @NoRTLEvent;
rtleventWaitFor : @NoRTLEvent;
rtleventsync : @NoRTLEventSync;
rtleventwaitfortimeout : @NoRTLEventWaitForTimeout;
SemaphoreInit : @NoSemaphoreInit;
SemaphoreDestroy : @NoSemaphore;
SemaphorePost : @NoSemaphore;
SemaphoreWait : @NoSemaphoreWait
{$endif EMBEDDED}
);
Procedure SetNoThreadManager; Procedure SetNoThreadManager;
begin begin
With NoThreadManager do
begin
InitManager :=Nil;
DoneManager :=Nil;
BeginThread :=@NoBeginThread;
EndThread :=@NoEndThread;
SuspendThread :=@NoThreadHandler;
ResumeThread :=@NoThreadHandler;
KillThread :=@NoThreadHandler;
CloseThread :=@NoCloseThread;
ThreadSwitch :=@NoThreadSwitch;
WaitForThreadTerminate :=@NoWaitForThreadTerminate;
ThreadSetPriority :=@NoThreadSetPriority;
ThreadGetPriority :=@NoThreadGetPriority;
GetCurrentThreadId :=@NoGetCurrentThreadId;
InitCriticalSection :=@NoCriticalSection;
DoneCriticalSection :=@NoCriticalSection;
EnterCriticalSection :=@NoCriticalSection;
TryEnterCriticalSection:=@NoTryEnterCriticalSection;
LeaveCriticalSection :=@NoCriticalSection;
InitThreadVar :=@NoInitThreadVar;
RelocateThreadVar :=@NoRelocateThreadVar;
AllocateThreadVars :=@NoAllocateThreadVars;
ReleaseThreadVars :=@NoReleaseThreadVars;
BasicEventCreate :=@NoBasicEventCreate;
basiceventdestroy :=@Nobasiceventdestroy;
basiceventResetEvent :=@NobasiceventResetEvent;
basiceventSetEvent :=@NobasiceventSetEvent;
basiceventWaitFor :=@NobasiceventWaitFor;
rtlEventCreate :=@NortlEventCreate;
rtleventdestroy :=@Nortleventdestroy;
rtleventSetEvent :=@NortleventSetEvent;
rtleventResetEvent :=@NortleventResetEvent;
rtleventWaitFor :=@NortleventWaitFor;
rtleventsync :=@Nortleventsync;
rtleventwaitfortimeout :=@NortleventWaitForTimeout;
// semaphores stuff
SemaphoreInit :=@NoSemaphoreInit;
SemaphoreDestroy :=@NoSemaphoreDestroy;
SemaphoreWait :=@NoSemaphoreWait;
SemaphorePost :=@NoSemaphorePost;
end;
SetThreadManager(NoThreadManager); SetThreadManager(NoThreadManager);
end; end;