pidl: Introduce new dirrective: relative_short
[ira/wip.git] / pidl / lib / Parse / Pidl / Compat.pm
index 75190211441e5c0db0840baa1361a21c9b1b031e..c248677747d7be7a34bdbbb4caffa05cab7848ed 100644 (file)
@@ -44,7 +44,6 @@ my %supported_properties = (
        "nopush"                => ["FUNCTION", "TYPEDEF"],
        "nopull"                => ["FUNCTION", "TYPEDEF"],
        "noprint"               => ["FUNCTION", "TYPEDEF"],
-       "noejs"                 => ["FUNCTION", "TYPEDEF"],
 
        # union
        "switch_is"             => ["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");
        }