sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-03-26 18:50:30 +03:00
Code

r5426: Warn about embedded ref pointers.

Browse Source 
(This used to be commit 40547ed33fea57ee8f68a8f864f8f10c9a6d24dc)
This commit is contained in:
Jelmer Vernooij 2005-02-17 11:20:28 +00:00 committed by Gerald (Jerry) Carter
parent 308c7d26c1
commit a2a7869d06
2 changed files with 10 additions and 1 deletions
source4/build/pidl
ndr.pmvalidator.pm

1
source4/build/pidl/ndr.pm

@ -84,6 +84,7 @@ sub pointer_type($)
return "ptr" if (util::has_property($e, "ptr"));
return "unique" if (util::has_property($e, "unique"));
return "relative" if (util::has_property($e, "relative"));
return "ignore" if (util::has_property($e, "ignore"));
return undef;
}

10
source4/build/pidl/validator.pm

@ -68,12 +68,15 @@ sub ValidStruct($)
my($struct) = shift;
foreach my $e (@{$struct->{ELEMENTS}}) {
if (util::has_property($e, "ref")) {
fatal(el_name($e) . " : embedded ref pointers are not supported yet\n");
}
$e->{PARENT} = $struct;
ValidElement($e);
}
}
#####################################################################
# parse a union
sub ValidUnion($)
@ -92,6 +95,11 @@ sub ValidUnion($)
fatal "Union member $e->{NAME} must have default or case property\n";
}
if (util::has_property($e, "ref")) {
fatal(el_name($e) . " : embedded ref pointers are not supported yet\n");
}
ValidElement($e);
}
}