summaryrefslogtreecommitdiff
path: root/pidl/lib/Parse
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2010-10-11 05:34:57 -0600
committerTim Potter <tpot@samba.org>2010-10-11 12:18:21 +0000
commit391b24e3edcb3a291534d91fc999ef2fd1995f03 (patch)
treefce3a51abfa99c2ee63a3d93385439a9490dfa2a /pidl/lib/Parse
parentba02178e879b4a7d4848354f4d30fbedd3e75028 (diff)
downloadsamba-391b24e3edcb3a291534d91fc999ef2fd1995f03.tar.gz
samba-391b24e3edcb3a291534d91fc999ef2fd1995f03.tar.bz2
samba-391b24e3edcb3a291534d91fc999ef2fd1995f03.zip
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 <tpot@samba.org> Autobuild-Date: Mon Oct 11 12:18:22 UTC 2010 on sn-devel-104
Diffstat (limited to 'pidl/lib/Parse')
-rw-r--r--pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm8
1 files changed, 4 insertions, 4 deletions
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});