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

Fix for inferior C compilers. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8771 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2008-01-11 17:17:40 +00:00
parent 9ea5edac9a
commit a4c1cb4466
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
byterun/finalise.c
View File

@ -85,8 +85,9 @@ void caml_final_update (void)
Assert (Is_in_heap (final_table[i].val)); Assert (Is_in_heap (final_table[i].val));
if (Is_white_val (final_table[i].val)){ if (Is_white_val (final_table[i].val)){
if (Tag_val (final_table[i].val) == Forward_tag){ if (Tag_val (final_table[i].val) == Forward_tag){
value fv;
Assert (final_table[i].offset == 0); Assert (final_table[i].offset == 0);
value fv = Forward_val (final_table[i].val); fv = Forward_val (final_table[i].val);
if (Is_block (fv) && Is_in_value_area(fv) if (Is_block (fv) && Is_in_value_area(fv)
&& (Tag_val (fv) == Forward_tag || Tag_val (fv) == Lazy_tag && (Tag_val (fv) == Forward_tag || Tag_val (fv) == Lazy_tag
|| Tag_val (fv) == Double_tag)){ || Tag_val (fv) == Double_tag)){