summaryrefslogtreecommitdiff
path: root/byterun/obj.c
diff options
context:
space:
mode:
Diffstat (limited to 'byterun/obj.c')
-rw-r--r--byterun/obj.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/byterun/obj.c b/byterun/obj.c
index ded8416b1e..5e15c47dae 100644
--- a/byterun/obj.c
+++ b/byterun/obj.c
@@ -165,6 +165,10 @@ CAMLprim value caml_obj_truncate (value v, value newsize)
return Val_unit;
}
+CAMLprim value caml_obj_add_offset (value v, value offset)
+{
+ return v + Int32_val (offset);
+}
/* The following functions are used in stdlib/lazy.ml.
They are not written in O'Caml because they must be atomic with respect