pidl: Introduce new dirrective: relative_short

[samba.git] / pidl / lib / Parse / Pidl / Compat.pm

diff --git a/pidl/lib/Parse/Pidl/Compat.pm b/pidl/lib/Parse/Pidl/Compat.pm
index 1b49c439c43bd3fdc4b679c0838d4bd832000949..c248677747d7be7a34bdbbb4caffa05cab7848ed 100644 (file)
--- a/pidl/lib/Parse/Pidl/Compat.pm
+++ b/pidl/lib/Parse/Pidl/Compat.pm
@@ -125,6 +125,10 @@ sub CheckElement($)
                warning($e, "relative() pointer property not supported");
        }
 
+       if (has_property($e, "relative_short")) {
+               warning($e, "relative_short() pointer property not supported");
+       }
+
        if (has_property($e, "flag")) {
                warning($e, "ignoring flag() property");
        }