Runtime: adjust obj prims

Author: hhugo

compiler/tests-check-prim/main.output

@@ -144,16 +144,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_lazy_read_result
-caml_lazy_reset_to_lazy
-caml_lazy_update_to_forcing
-caml_lazy_update_to_forward
-caml_obj_compare_and_swap
-caml_obj_is_block
-caml_obj_is_shared
-caml_obj_update_tag
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable

compiler/tests-check-prim/main.output5

@@ -127,12 +127,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_obj_is_block
-caml_obj_make_forward
-caml_obj_set_tag
-caml_obj_truncate
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor

compiler/tests-check-prim/unix-unix.output

@@ -253,16 +253,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_lazy_read_result
-caml_lazy_reset_to_lazy
-caml_lazy_update_to_forcing
-caml_lazy_update_to_forward
-caml_obj_compare_and_swap
-caml_obj_is_block
-caml_obj_is_shared
-caml_obj_update_tag
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable

compiler/tests-check-prim/unix-unix.output5

@@ -238,12 +238,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_obj_is_block
-caml_obj_make_forward
-caml_obj_set_tag
-caml_obj_truncate
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor

compiler/tests-check-prim/unix-win32.output

@@ -218,16 +218,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_lazy_read_result
-caml_lazy_reset_to_lazy
-caml_lazy_update_to_forcing
-caml_lazy_update_to_forward
-caml_obj_compare_and_swap
-caml_obj_is_block
-caml_obj_is_shared
-caml_obj_update_tag
-
 From +stdlib.js:
 caml_build_symbols
 caml_is_printable

compiler/tests-check-prim/unix-win32.output5

@@ -204,12 +204,6 @@ caml_to_js_string
 From +nat.js:
 compare_nat_real
 
-From +obj.js:
-caml_obj_is_block
-caml_obj_make_forward
-caml_obj_set_tag
-caml_obj_truncate
-
 From +runtime_events.js:
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor

runtime/js/obj.js

@@ -39,6 +39,7 @@ function caml_alloc_dummy_infix() {
 }
 
 //Provides: caml_obj_is_block const (const)
+//Version: < 4.12
 function caml_obj_is_block(x) {
   return +Array.isArray(x);
 }
@@ -55,6 +56,7 @@ function caml_obj_tag(x) {
 }
 
 //Provides: caml_obj_set_tag (mutable, const)
+//Version: < 5.0
 function caml_obj_set_tag(x, tag) {
   x[0] = tag;
   return 0;
@@ -86,20 +88,23 @@ function caml_obj_dup(x) {
 
 //Provides: caml_obj_truncate (mutable, const)
 //Requires: caml_invalid_argument
+//Version: < 5.0
 function caml_obj_truncate(x, s) {
   if (s <= 0 || s + 1 > x.length) caml_invalid_argument("Obj.truncate");
   if (x.length !== s + 1) x.length = s + 1;
   return 0;
 }
 
 //Provides: caml_obj_make_forward
+//Version: < 5.0
 function caml_obj_make_forward(b, v) {
   b[0] = 250;
   b[1] = v;
   return 0;
 }
 
 //Provides: caml_obj_compare_and_swap
+//Version: >= 5.0
 function caml_obj_compare_and_swap(x, i, old, n) {
   if (x[i + 1] === old) {
     x[i + 1] = n;
@@ -109,6 +114,7 @@ function caml_obj_compare_and_swap(x, i, old, n) {
 }
 
 //Provides: caml_obj_is_shared
+//Version: >= 5.0
 function caml_obj_is_shared(x) {
   return 1;
 }
@@ -182,6 +188,7 @@ function caml_obj_add_offset(v, offset) {
 }
 
 //Provides: caml_obj_update_tag
+//Version: >= 5.0
 function caml_obj_update_tag(b, o, n) {
   if (b[0] === o) {
     b[0] = n;
@@ -192,6 +199,7 @@ function caml_obj_update_tag(b, o, n) {
 
 //Provides: caml_lazy_update_to_forcing
 //Requires: caml_obj_update_tag
+//Version: >= 5.0
 function caml_lazy_update_to_forcing(o) {
   if (
     Array.isArray(o) &&
@@ -206,20 +214,23 @@ function caml_lazy_update_to_forcing(o) {
 
 //Provides: caml_lazy_update_to_forward
 //Requires: caml_obj_update_tag
+//Version: >= 5.0
 function caml_lazy_update_to_forward(o) {
   caml_obj_update_tag(o, 244, 250);
   return 0; // unit
 }
 
 //Provides: caml_lazy_reset_to_lazy
 //Requires: caml_obj_update_tag
+//Version: >= 5.0
 function caml_lazy_reset_to_lazy(o) {
   caml_obj_update_tag(o, 244, 246);
   return 0;
 }
 
 //Provides: caml_lazy_read_result
 //Requires: caml_obj_tag
+//Version: >= 5.0
 function caml_lazy_read_result(o) {
   return caml_obj_tag(o) === 250 ? o[1] : o;
 }