pidl: reduce implicit cast warnings in gen_ndr server code

Michael

diff --git a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index 6604abe91e3f2c16b3074a24650f2197018740ce..33dc68e753f242b9bce9650f0506db5b60016ae0 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
+++ b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
@@ -234,7 +234,7 @@ sub ParseDispatchFunction($)
                my $op = "NDR_".uc($fn->{NAME});
                pidl "case $op: {";
                indent;
-               pidl "struct $fn->{NAME} *r = _r;";
+               pidl "struct $fn->{NAME} *r = (struct $fn->{NAME} *)_r;";
                CallWithStruct("cli->pipes_struct", "mem_ctx", $fn, 
                        sub { pidl "return NT_STATUS_NO_MEMORY;"; });
                pidl "return NT_STATUS_OK;";