diff options
| author | Stefan Metzmacher <metze@samba.org> | 2005-10-10 11:47:23 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:39:38 -0500 |
| commit | b94fcbd306bbf758d26fb40c7c0a1b00ba6fe38d (patch) | |
| tree | 434bc01d544becf32a0ba22cd96eefaf8b102826 /source4/pidl | |
| parent | b0e342e389d19377ad6c1b4236e60306d662ddab (diff) | |
| download | samba-b94fcbd306bbf758d26fb40c7c0a1b00ba6fe38d.tar.gz samba-b94fcbd306bbf758d26fb40c7c0a1b00ba6fe38d.tar.bz2 samba-b94fcbd306bbf758d26fb40c7c0a1b00ba6fe38d.zip | |
r10868: make flag(NDR_PAHEX) possible to use and show the union level in hex
metze
(This used to be commit 7efb92adc057ad8a993eb9de66c3806608747104)
Diffstat (limited to 'source4/pidl')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm index da60a02059..2ccbc057fc 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm @@ -1624,15 +1624,17 @@ sub ParseUnionPrint($$) my ($e,$name) = @_; my $have_default = 0; - pidl "int level = ndr_print_get_switch_value(ndr, r);"; - + pidl "int level;"; foreach my $el (@{$e->{ELEMENTS}}) { DeclareArrayVariables($el); } - pidl "ndr_print_union(ndr, name, level, \"$name\");"; start_flags($e); + pidl "level = ndr_print_get_switch_value(ndr, r);"; + + pidl "ndr_print_union(ndr, name, level, \"$name\");"; + pidl "switch (level) {"; indent; foreach my $el (@{$e->{ELEMENTS}}) { |