From 1286674bb9855d69f3448fb76c2721c5ac38b84c Mon Sep 17 00:00:00 2001
From: tenderlove <tenderlove@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 1 Apr 2019 22:52:35 +0000
Subject: unpoison / poison objects while walking the heap

This fixes some ASAN errors

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@67405 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 internal.h | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'internal.h')

diff --git a/internal.h b/internal.h
index 50a20a2bf6..f2c9c238eb 100644
--- a/internal.h
+++ b/internal.h
@@ -105,6 +105,7 @@ extern "C" {
 # define __asan_poison_memory_region(x, y)
 # define __asan_unpoison_memory_region(x, y)
 # define __asan_region_is_poisoned(x, y) 0
+# define poisoned_object_p(x) 0
 #endif
 
 #ifdef HAVE_SANITIZER_MSAN_INTERFACE_H
@@ -132,6 +133,15 @@ poison_object(VALUE obj)
     poison_memory_region(ptr, SIZEOF_VALUE);
 }
 
+#if __has_feature(address_sanitizer)
+static inline void *
+poisoned_object_p(VALUE obj)
+{
+    struct RVALUE *ptr = (void *)obj;
+    return __asan_region_is_poisoned(ptr, SIZEOF_VALUE);
+}
+#endif
+
 static inline void
 unpoison_memory_region(const volatile void *ptr, size_t size, bool malloc_p)
 {
-- 
cgit v1.2.3