pidl: Introduce new dirrective: relative_short
[ira/wip.git] / pidl / lib / Parse / Pidl / Compat.pm
index 58ba136591b915c1e41ac80cafc924ea0bee62e0..c248677747d7be7a34bdbbb4caffa05cab7848ed 100644 (file)
@@ -67,7 +67,6 @@ my %supported_properties = (
 
        # array
        "range"                 => ["ELEMENT"],
-       "max"                   => ["ELEMENT"],
        "size_is"               => ["ELEMENT"],
        "string"                => ["ELEMENT"],
        "noheader"              => ["ELEMENT"],
@@ -126,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");
        }