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

+ InitProc

Browse Source
This commit is contained in:
florian 2005-02-06 20:35:54 +00:00
parent c8d20e65c4
commit aeac2a046d
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -640,6 +640,8 @@ begin
InitCount:=i; InitCount:=i;
end; end;
end; end;
if assigned(InitProc) then
TProcedure(InitProc)();
end; end;
@ -1060,7 +1062,10 @@ end;
{ {
$Log$ $Log$
Revision 1.74 2005-02-06 16:57:18 peter Revision 1.75 2005-02-06 20:35:54 florian
+ InitProc
Revision 1.74 2005/02/06 16:57:18 peter
* threads for go32v2,os,emx,netware * threads for go32v2,os,emx,netware
Revision 1.73 2005/02/06 13:06:20 peter Revision 1.73 2005/02/06 13:06:20 peter

6
rtl/inc/systemh.inc
View File

@ -372,6 +372,7 @@ var
IsConsole : boolean; IsConsole : boolean;
{ Threading support } { Threading support }
fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE'; fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
InitProc : Pointer;
{$ifdef SUPPORT_THREADVAR} {$ifdef SUPPORT_THREADVAR}
ThreadVar ThreadVar
@ -771,7 +772,10 @@ const
{ {
$Log$ $Log$
Revision 1.116 2005-02-06 11:20:52 peter Revision 1.117 2005-02-06 20:35:54 florian
+ InitProc
Revision 1.116 2005/02/06 11:20:52 peter
* threading in system unit * threading in system unit
* removed systhrds unit * removed systhrds unit