sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-31 01:48:16 +03:00
Code

r5426: Warn about embedded ref pointers.

Browse Source
This commit is contained in:
Jelmer Vernooij 2005-02-17 11:20:28 +00:00 committed by Gerald (Jerry) Carter
parent eb66180d14
commit 40547ed33f
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
source/build/pidl/ndr.pm
View File

@ -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
source/build/pidl/validator.pm
View File

@ -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);
}
}