diff options
| author | Stefan Metzmacher <metze@samba.org> | 2005-03-28 18:21:13 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:11:19 -0500 |
| commit | 4f4d18d66c2fd111864df688d911b151b22cefbe (patch) | |
| tree | 7a25013dd0bd50afff51a716deaec4f7fec0a558 /source4/build/pidl/validator.pm | |
| parent | e6aeeb5269a4953e48dd023e03aeba0cf47f6698 (diff) | |
| download | samba-4f4d18d66c2fd111864df688d911b151b22cefbe.tar.gz samba-4f4d18d66c2fd111864df688d911b151b22cefbe.tar.bz2 samba-4f4d18d66c2fd111864df688d911b151b22cefbe.zip | |
r6097: allow compression only on subcontexts
metze
(This used to be commit 2a7eead1c8058f829395723028a43b0336a1cf87)
Diffstat (limited to 'source4/build/pidl/validator.pm')
| -rw-r--r-- | source4/build/pidl/validator.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/source4/build/pidl/validator.pm b/source4/build/pidl/validator.pm index 5e1f1e1660..d3f3cbe1e7 100644 --- a/source4/build/pidl/validator.pm +++ b/source4/build/pidl/validator.pm @@ -76,6 +76,10 @@ sub ValidElement($) fatal(el_name($e) . " : subcontext_size() on non-subcontext element"); } + if (defined (util::has_property($e, "compression")) and not defined(util::has_property($e, "subcontext"))) { + fatal(el_name($e) . " : compression() on non-subcontext element"); + } + if (!$e->{POINTERS} && ( util::has_property($e, "ptr") or util::has_property($e, "unique") or @@ -177,12 +181,12 @@ sub ValidInterface($) } if (util::has_property($interface, "object")) { - if(util::has_property($interface, "version") && + if (util::has_property($interface, "version") && $interface->{PROPERTIES}->{version} != 0) { fatal "Object interfaces must have version 0.0 ($interface->{NAME})\n"; } - if(!defined($interface->{BASE}) && + if (!defined($interface->{BASE}) && not ($interface->{NAME} eq "IUnknown")) { fatal "Object interfaces must all derive from IUnknown ($interface->{NAME})\n"; } |