Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
master
Xavier Leroy 1995-11-02 14:07:52 +00:00
parent 59b4e67cad
commit bf74ce3ea5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
byterun/roots.c
View File

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