From bf74ce3ea54d79954693b7f63d7dadbd59701ab8 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Thu, 2 Nov 1995 14:07:52 +0000
Subject: [PATCH] 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 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/byterun/roots.c b/byterun/roots.c
index 510527239..0875f8340 100644
--- a/byterun/roots.c
+++ b/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);