diff options
| author | Alain Frisch <alain@frisch.fr> | 2008-01-11 17:17:40 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2008-01-11 17:17:40 +0000 |
| commit | a4c1cb44661e19b6c55d3ebd032a7a91294bdedc (patch) | |
| tree | 26eccc1b2a2d740f21fb7d928c73b83ed79c3bf4 /byterun/finalise.c | |
| parent | 9ea5edac9ab0b3860688583a2ff22a9e164be086 (diff) | |
Fix for inferior C compilers.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8771 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/finalise.c')
| -rw-r--r-- | byterun/finalise.c | 3 |
1 files changed, 2 insertions, 1 deletions
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)){ |