Runtime/wasm: fix method lookup

Author: vouillon

CHANGES.md

@@ -56,6 +56,7 @@
 * Runtime: fix caml_string_concat when not using JS strings (#1874)
 * Runtime: consistent bigarray hashing across all architectures (#1977)
 * Runtime: fix caml_utf8_of_utf16 bug in high surrogate case (#2008)
+* Runtime/wasm: fix method lookup (#2034)
 * Tools: fix jsoo_mktop and jsoo_mkcmis (#1877)
 * Toplevel: fix for when use-js-strings is disabled (#1997)
 

runtime/wasm/obj.wat

@@ -387,14 +387,18 @@
             (global.set $method_cache (local.get $a))))
       (local.set $ofs
          (array.get $int_array (global.get $method_cache) (local.get $cacheid)))
-      (if (i32.eq (local.get $tag)
-             (i31.get_s
-                (ref.cast (ref i31)
-                   (array.get $block (local.get $meths) (local.get $ofs)))))
+      (if (i32.lt_u (local.get $ofs) (array.len (local.get $meths)))
          (then
-            (return
-               (array.get $block
-                  (local.get $meths) (i32.sub (local.get $ofs) (i32.const 1))))))
+            (if (i32.eq (local.get $tag)
+                   (i31.get_s
+                      (ref.cast (ref i31)
+                         (array.get $block (local.get $meths)
+                            (local.get $ofs)))))
+               (then
+                  (return
+                     (array.get $block
+                        (local.get $meths)
+                        (i32.sub (local.get $ofs) (i32.const 1))))))))
       (local.set $li (i32.const 3))
       (local.set $hi
          (i32.add