From 6f47022b58b184d6a983e14675adda8a798e6234 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 6 Feb 2005 20:37:31 +0000
Subject: [PATCH]   * InitProc gets an inital value

---
 rtl/inc/systemh.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 56df0404d5..8d2d057262 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -363,6 +363,7 @@ const
   IsMultiThread : boolean = FALSE;
   { Indicates if there was an error }
   StackError : boolean = FALSE;
+  InitProc : Pointer = nil;
 
 var
   ExitCode    : Word; public name 'operatingsystem_result';
@@ -372,7 +373,6 @@ var
   IsConsole : boolean;
   { Threading support }
   fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
-  InitProc : Pointer;
 
 {$ifdef SUPPORT_THREADVAR}
 ThreadVar
@@ -772,7 +772,10 @@ const
 
 {
   $Log$
-  Revision 1.117  2005-02-06 20:35:54  florian
+  Revision 1.118  2005-02-06 20:37:31  florian
+    * InitProc gets an inital value
+
+  Revision 1.117  2005/02/06 20:35:54  florian
     + InitProc
 
   Revision 1.116  2005/02/06 11:20:52  peter