summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2004-05-17 11:39:33 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:53:49 -0500
commit67638baabbec4b01af2aaa13be51f30215b1d04c (patch)
tree8d298a74852ff79b1e71b19bfe4123dcdc31f13e
parentb340a61cb935e014090eed7105f8f50c3a00e71b (diff)
downloadsamba-67638baabbec4b01af2aaa13be51f30215b1d04c.tar.gz
samba-67638baabbec4b01af2aaa13be51f30215b1d04c.tar.bz2
samba-67638baabbec4b01af2aaa13be51f30215b1d04c.zip
r756: Handle default element in union.
(This used to be commit 1ece224c9a25731a8c392cf378968273c0072ecf)
-rw-r--r--source4/build/pidl/dump.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index d895863536..cf5ec37bda 100644
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -85,9 +85,13 @@ sub DumpUnionElement($)
my($element) = shift;
my($res);
- $res .= "[case($element->{CASE})] ";
- $res .= DumpElement($element->{DATA});
- $res .= ";\n";
+ if ($element->{CASE} eq "default") {
+ $res .= "[default] ;\n";
+ } else {
+ $res .= "[case($element->{CASE})] ";
+ $res .= DumpElement($element->{DATA});
+ $res .= ";\n";
+ }
return $res;
}