diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2006-11-21 23:21:08 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:28:21 -0500 |
commit | ce0c2236b953dc977655dbceef40916825e843ae (patch) | |
tree | c279a2f20a2831386a9d5ec6daa29a71fc1843cc /source4/pidl/lib/Parse | |
parent | de2ab46ad87be31df21d922e15c119cd681dc110 (diff) | |
download | samba-ce0c2236b953dc977655dbceef40916825e843ae.tar.gz samba-ce0c2236b953dc977655dbceef40916825e843ae.tar.bz2 samba-ce0c2236b953dc977655dbceef40916825e843ae.zip |
r19830: Warn about non-ref top-level pointers.
(This used to be commit 78153200ac45ce7333c91c48ded549b5eed5e077)
Diffstat (limited to 'source4/pidl/lib/Parse')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/NDR.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm index a80bb954c1..d017c455a6 100644 --- a/source4/pidl/lib/Parse/Pidl/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/NDR.pm @@ -70,8 +70,6 @@ my $scalar_alignment = { 'ipv4address' => 4 }; - - sub nonfatal($$) { my ($e,$s) = @_; @@ -135,8 +133,7 @@ sub GetElementLevelTable($) $is_string = 1; delete($e->{PROPERTIES}->{string}); } else { - print "$e->{FILE}:$e->{LINE}: Must specify size_is() for conformant array!\n"; - exit 1; + fatal($e, "Must specify size_is() for conformant array!") } if (($length = shift @length_is) or $is_string) { @@ -184,6 +181,10 @@ sub GetElementLevelTable($) LEVEL => $level }); + nonfatal($e, "top-level pointer `$e->{NAME}' is not a \[ref\] pointer") + if ($i == 1 and pointer_type($e) ne "ref" and + $e->{PARENT}->{TYPE} eq "FUNCTION"); + $pointer_idx++; # everything that follows will be deferred |