1 files changed, 25 insertions, 0 deletions
diff --git a/source/slang/slang-capability.cpp b/source/slang/slang-capability.cpp
index 5de05a5a4..0b82cb92c 100644
--- a/source/slang/slang-capability.cpp
+++ b/source/slang/slang-capability.cpp
@@ -127,6 +127,31 @@ CapabilityAtom findCapabilityAtom(UnownedStringSlice const& name)
     return CapabilityAtom::Invalid;
 }
 
+bool isCapabilityDerivedFrom(CapabilityAtom atom, CapabilityAtom base)
+{
+    if (atom == base)
+    {
+        return true;
+    }
+
+    const auto& info = kCapabilityAtoms[Index(atom)];
+
+    for (auto cur : info.bases)
+    {
+        if (cur == CapabilityAtom::Invalid)
+        {
+            return false;
+        }
+
+        if (isCapabilityDerivedFrom(cur, base))
+        {
+            return true;
+        }
+    }
+
+    return false;
+}
+
 //
 // CapabilitySet
 //