+ InitProc

rtl/inc/system.inc

@@ -640,6 +640,8 @@ begin
         InitCount:=i;
       end;
    end;
+  if assigned(InitProc) then
+    TProcedure(InitProc)();
 end;
 
 
@@ -1060,7 +1062,10 @@ end;
 
 {
   $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
 
   Revision 1.73  2005/02/06 13:06:20  peter

rtl/inc/systemh.inc

@@ -372,6 +372,7 @@ var
   IsConsole : boolean;
   { Threading support }
   fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
+  InitProc : Pointer;
 
 {$ifdef SUPPORT_THREADVAR}
 ThreadVar
@@ -771,7 +772,10 @@ const
 
 {
   $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
     * removed systhrds unit