Workaround TruffleRuby buggy rb_catch_obj implementation

Somehow on TruffleRuby `rb_catch_obj` straight out doesn't call
the passed function, acting as a noop.

Author: byroot

ext/json/ext/parser/extconf.rb

@@ -2,6 +2,8 @@
 require 'mkmf'
 
 $defs << "-DJSON_DEBUG" if ENV.fetch("JSON_DEBUG", "0") != "0"
+$defs << "-DJSON_WORKAROUND_RB_CATCH_BUG" if RUBY_ENGINE == 'truffleruby'
+
 have_func("rb_enc_interned_str", "ruby/encoding.h") # RUBY_VERSION >= 3.0
 have_func("rb_str_to_interned_str", "ruby.h") # RUBY_VERSION >= 3.0
 have_func("rb_hash_new_capa", "ruby.h") # RUBY_VERSION >= 3.2

ext/json/ext/parser/parser.c

@@ -675,13 +675,47 @@ static VALUE parse_error_new(JSON_ParserState *state, VALUE message, long line,
     return exc;
 }
 
+NORETURN(static) void parser_throw_eos(VALUE parser)
+{
+#ifdef JSON_WORKAROUND_RB_CATCH_BUG
+    VALUE exc = rb_exc_new_str(eParserError, rb_utf8_str_new_cstr("EOS"));
+    rb_ivar_set(exc, i_at_eos, parser);
+    rb_exc_raise(exc);
+#else
+    rb_throw_obj(parser, parser);
+#endif
+}
+
+static VALUE parser_catch_eos(VALUE parser, VALUE (*func)(VALUE args), VALUE func_args)
+{
+#ifdef JSON_WORKAROUND_RB_CATCH_BUG
+    int status;
+    VALUE result = rb_protect(func, func_args, &status);
+    if (status) {
+        VALUE error_source = rb_ivar_get(rb_errinfo(), i_at_eos);
+        if (error_source == parser) {
+            rb_set_errinfo(Qnil);
+            return Qfalse;
+        }
+        rb_jump_tag(status);
+    }
+    return result;
+#else
+    VALUE result = rb_catch_obj(parser, func, func_args);
+    if (result == parser) {
+        return Qfalse;
+    }
+    return result;
+#endif
+}
+
 NORETURN(static) void raise_parse_error(const char *format, JSON_ParserState *state, bool eos)
 {
     if (state->parser) { 
         if (eos) {
             // the error will be swallowed by ResumableParser#parse, so no
             // point building a message or backtrace.
-            rb_throw_obj(state->parser, state->parser);
+            parser_throw_eos(state->parser);
         } else {
             // line and columns can't be accurate in resumable
             rb_exc_raise(parse_error_new(state, build_parse_error_message(format, state), 0, 0, eos));
@@ -2398,11 +2432,7 @@ static VALUE json_parse_any_resumable_safe0(RB_BLOCK_CALL_FUNC_ARGLIST(yielded_a
 static VALUE json_parse_any_resumable_safe(VALUE _args)
 {
     struct json_parse_any_args *args = (struct json_parse_any_args *)_args;
-    VALUE result = rb_catch_obj(args->parser, json_parse_any_resumable_safe0, _args);
-    if (result == args->parser) {
-        return (VALUE)false;
-    }
-    return result;
+    return parser_catch_eos(args->parser, json_parse_any_resumable_safe0, _args);
 }
 
 static JSON_ResumableParser *ResumableParser_acquire(VALUE self, bool lock)