Il faut oldifier global_data maintenant que input_value peut allouer son bloc dans le tas mineur

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@388 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

byterun/roots.c

@@ -44,7 +44,7 @@ void register_global_root(r)
   global_roots = gr;
 }
 
-/* Call [oldify] on all stack roots and C roots */
+/* Call [oldify] on all roots */
 
 void oldify_local_roots ()
 {
@@ -52,6 +52,9 @@ void oldify_local_roots ()
   value * block;
   struct global_root * gr;
 
+  /* Global variables */
+  oldify(global_data, &global_data);
+
   /* The stack */
   for (sp = extern_sp; sp < stack_high; sp++) {
     oldify (*sp, sp);