From a4c1cb44661e19b6c55d3ebd032a7a91294bdedc Mon Sep 17 00:00:00 2001 From: Alain Frisch Date: Fri, 11 Jan 2008 17:17:40 +0000 Subject: [PATCH] Fix for inferior C compilers. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8771 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/finalise.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/byterun/finalise.c b/byterun/finalise.c index 44a5876d2..c55032d4e 100644 --- a/byterun/finalise.c +++ b/byterun/finalise.c @@ -85,8 +85,9 @@ void caml_final_update (void) Assert (Is_in_heap (final_table[i].val)); if (Is_white_val (final_table[i].val)){ if (Tag_val (final_table[i].val) == Forward_tag){ + value fv; 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) && (Tag_val (fv) == Forward_tag || Tag_val (fv) == Lazy_tag || Tag_val (fv) == Double_tag)){