From 164d595dba8cadbe3b889b6e809aec8a24a8d878 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Fri, 9 Sep 2011 12:13:45 +0200
Subject: Add support for ignoring bases in has_a() test

---
 odb/context.cxx | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'odb/context.cxx')

diff --git a/odb/context.cxx b/odb/context.cxx
index 56b9ab0..03f0308 100644
--- a/odb/context.cxx
+++ b/odb/context.cxx
@@ -971,6 +971,15 @@ namespace
         "value");
     }
 
+    virtual void
+    traverse_object (semantics::class_& c)
+    {
+      if ((flags_ & context::exclude_base) == 0)
+        inherits (c);
+
+      names (c);
+    }
+
   private:
     bool r_;
     unsigned short flags_;
-- 
cgit v1.1