* heaptrc.pp: In case of early multithreading initialization, initialize all related items (namely, main_relo_todolist), not just the critical section. main_relo_todolist is used later without assigned checks, and it is also used as a flag to destroy the critical section.

git-svn-id: trunk@17937 -

rtl/inc/heaptrc.pp

@@ -1350,7 +1350,7 @@ begin
     must be initialized already here
   }
   if IsMultithread then
-    initcriticalsection(todo_lock);
+    TraceRelocateHeap;
 end;
 
 procedure TraceExit;