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

* moved fpc_threadvar_relocate_proc from systemh.inc to thread.inc

Browse Source 
and gave it the correct type (TRelocateThreadVarHandler)
  * changed parameter type of InitThread also to TRelocateThreadVarHandler

git-svn-id: trunk@23130 -
This commit is contained in:
Jonas Maebe 2012-12-09 22:42:46 +00:00
parent 2ea6979277
commit 14b1c8a99c
5 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/systemh.inc
View File

@ -539,8 +539,6 @@ const
var var
{$endif FPC_HAS_FEATURE_DYNLIBS} {$endif FPC_HAS_FEATURE_DYNLIBS}
IsConsole : boolean = false; public name 'operatingsystem_isconsole'; IsConsole : boolean = false; public name 'operatingsystem_isconsole';
{ Threading support }
fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
DefaultSystemCodePage, DefaultSystemCodePage,
DefaultUnicodeCodePage, DefaultUnicodeCodePage,

1
rtl/inc/thread.inc
View File

@ -16,6 +16,7 @@
Var Var
CurrentTM : TThreadManager; CurrentTM : TThreadManager;
fpc_threadvar_relocate_proc : TRelocateThreadVarHandler; public name 'FPC_THREADVAR_RELOCATE';
{***************************************************************************** {*****************************************************************************
Threadvar initialization Threadvar initialization

2
rtl/inc/threadh.inc
View File

@ -105,7 +105,7 @@ Function SetThreadManager(Const NewTM : TThreadManager) : Boolean;
{$ifndef DISABLE_NO_THREAD_MANAGER} {$ifndef DISABLE_NO_THREAD_MANAGER}
{$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 : TRelocateThreadVarHandler);
procedure InitThread(stklen:SizeUInt); procedure InitThread(stklen:SizeUInt);
procedure DoneThread; procedure DoneThread;

2
rtl/inc/threadvr.inc
View File

@ -100,7 +100,7 @@ begin
end; end;
end; end;
procedure InitThreadVars(RelocProc : Pointer); procedure InitThreadVars(RelocProc : TRelocateThreadVarHandler);
begin begin
{ initialize threadvars } { initialize threadvars }

2
rtl/java/jsystemh_types.inc
View File

@ -530,8 +530,6 @@ const
var var
{$endif FPC_HAS_FEATURE_DYNLIBS} {$endif FPC_HAS_FEATURE_DYNLIBS}
IsConsole : boolean = false; public name 'operatingsystem_isconsole'; IsConsole : boolean = false; public name 'operatingsystem_isconsole';
{ Threading support }
fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
DefaultSystemCodePage, DefaultSystemCodePage,
DefaultUnicodeCodePage, DefaultUnicodeCodePage,