ocaml-ancient/ancient-0.9.0-use-header_t....

21 lines
512 B
Diff

--- ancient-0.9.0.old/ancient_c.c 2009-05-26 12:45:26.000000000 +0100
+++ ancient-0.9.0/ancient_c.c 2016-11-07 17:07:42.531413947 +0000
@@ -169,7 +169,7 @@
}
struct restore_item {
- char *header;
+ header_t *header;
value field_zero;
};
@@ -203,7 +203,7 @@
// which is already ancient.
assert (Is_in_heap_or_young (obj));
- char *header = Hp_val (obj);
+ header_t *header = Hp_val (obj);
// If we've already visited this object, just return its offset
// in the out-of-heap memory.