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

Remove caml_lazy_follow_forward (unused since 666cb14a) 

A bootstrap is needed after this commit.
master
Jeremy Yallop 2020-07-07 16:07:25 +01:00
parent 46cec117a4
commit dcb7fb1e4c
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
runtime/obj.c
View File

@ -234,21 +234,11 @@ CAMLprim value caml_obj_add_offset (value v, value offset)
return v + (unsigned long) Int32_val (offset);
}
/* The following functions are used in stdlib/lazy.ml.
They are not written in OCaml because they must be atomic with respect
/* The following function is used in stdlib/lazy.ml.
It is not written in OCaml because it must be atomic with respect
to the GC.
*/
CAMLprim value caml_lazy_follow_forward (value v)
{
if (Is_block (v) && Is_in_value_area(v)
&& Tag_val (v) == Forward_tag){
return Forward_val (v);
}else{
return v;
}
}
CAMLprim value caml_lazy_make_forward (value v)
{
CAMLparam1 (v);