From 391b24e3edcb3a291534d91fc999ef2fd1995f03 Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Mon, 11 Oct 2010 05:34:57 -0600 Subject: Fix some warnings at higher -W levels in pidl generated code. Match data type for info levels to data type returned by utility functions. Autobuild-User: Tim Potter Autobuild-Date: Mon Oct 11 12:18:22 UTC 2010 on sn-devel-104 --- pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'pidl/lib') diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm index c76ef6bfcd..27e7a30ca6 100644 --- a/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm +++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm @@ -1686,7 +1686,7 @@ sub ParseUnionPushPrimitives($$$$) my $have_default = 0; - $self->pidl("int level = ndr_push_get_switch_value($ndr, $varname);"); + $self->pidl("uint32_t level = ndr_push_get_switch_value($ndr, $varname);"); if (defined($e->{SWITCH_TYPE})) { $self->pidl("NDR_CHECK(ndr_push_$e->{SWITCH_TYPE}($ndr, NDR_SCALARS, level));"); @@ -1733,7 +1733,7 @@ sub ParseUnionPushDeferred($$$$) my $have_default = 0; - $self->pidl("int level = ndr_push_get_switch_value($ndr, $varname);"); + $self->pidl("uint32_t level = ndr_push_get_switch_value($ndr, $varname);"); if (defined($e->{PROPERTIES}{relative_base})) { # retrieve the current offset as base for relative pointers # based on the toplevel struct/union @@ -1792,7 +1792,7 @@ sub ParseUnionPrint($$$$$) my ($self,$e,$ndr,$name,$varname) = @_; my $have_default = 0; - $self->pidl("int level;"); + $self->pidl("uint32_t level;"); foreach my $el (@{$e->{ELEMENTS}}) { $self->DeclareArrayVariables($el); } @@ -1919,7 +1919,7 @@ sub ParseUnionPull($$$$) my ($self,$e,$ndr,$varname) = @_; my $switch_type = $e->{SWITCH_TYPE}; - $self->pidl("int level;"); + $self->pidl("uint32_t level;"); if (defined($switch_type)) { if (Parse::Pidl::Typelist::typeIs($switch_type, "ENUM")) { $switch_type = Parse::Pidl::Typelist::enum_type_fn(getType($switch_type)->{DATA}); -- cgit