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

Variables non initialisees dans certains cas... 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3847 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jérôme Vouillon 2001-10-03 12:49:02 +00:00
parent e66c96ac34
commit 86c9dd3e5a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/intern.c
View File

@ -102,7 +102,7 @@ static void intern_cleanup(void)
if (intern_extra_block != NULL) {
/* free newly allocated heap chunk */
free_for_heap(intern_extra_block);
} else {
} else if (intern_block != NULL) {
/* restore original header for heap block, otherwise GC is confused */
Hd_val(intern_block) = intern_header;
}
@ -285,6 +285,8 @@ static void intern_alloc(mlsize_t whsize, mlsize_t num_objects)
if (whsize == 0) {
intern_obj_table = NULL;
intern_extra_block = NULL;
intern_block = NULL;
return;
}
wosize = Wosize_whsize(whsize);