diff options
author | Tim Potter <tpot@samba.org> | 2005-08-29 12:22:48 +0000 |
---|---|---|
committer | Tim Potter <tpot@samba.org> | 2005-08-29 12:22:48 +0000 |
commit | c40b67621be157a87806c4c1c48eae2185d9ba28 (patch) | |
tree | 62a2e42ebee8d7aed0c5abbca522337b3296e0a6 /source | |
parent | 24fa16415d3d2a0a1e4ed1d0ecf21cdd9a6ab55b (diff) | |
download | samba-c40b67621be157a87806c4c1c48eae2185d9ba28.tar.gz samba-c40b67621be157a87806c4c1c48eae2185d9ba28.tar.xz samba-c40b67621be157a87806c4c1c48eae2185d9ba28.zip |
r9734: The ethereal parser generator was generating duplicate functions for
fields in structures with the same name as a structure (i.e
security_ace.object and security_ace_object). I've twiddled the naming
scheme a bit and things are a bit more unique but there is still may be
some naming conflicts in other IDL files.
We are now getting confused over fields with the same name in unions
(e.g security_ace_object_ctr.object) plus some other union weirdness.
Diffstat (limited to 'source')
-rw-r--r-- | source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm index 92199e13f10..ad466b246a3 100644 --- a/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm +++ b/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm @@ -115,7 +115,7 @@ sub Enum($$$) { my ($e,$name,$ifname) = @_; my $valsstring = "$ifname\_$name\_vals"; - my $dissectorname = "$ifname\_dissect\_".StripPrefixes($name)."_enum"; + my $dissectorname = "$ifname\_dissect\_enum\_".StripPrefixes($name); return if (defined($conformance->{noemit}->{$dissectorname})); @@ -154,7 +154,7 @@ sub Enum($$$) sub Bitmap($$$) { my ($e,$name,$ifname) = @_; - my $dissectorname = "$ifname\_dissect\_".StripPrefixes($name)."_bitmap"; + my $dissectorname = "$ifname\_dissect\_bitmap\_".StripPrefixes($name); register_ett("ett_$ifname\_$name"); @@ -313,7 +313,7 @@ sub Element($$$) { my ($e,$pn,$ifname) = @_; - my $dissectorname = "$ifname\_dissect\_".StripPrefixes($pn)."\_".StripPrefixes($e->{NAME}); + my $dissectorname = "$ifname\_dissect\_element\_".StripPrefixes($pn)."\_".StripPrefixes($e->{NAME}); my $call_code = "offset = $dissectorname(tvb, offset, pinfo, tree, drep);"; @@ -402,7 +402,7 @@ sub Function($$$) sub Struct($$$) { my ($e,$name,$ifname) = @_; - my $dissectorname = "$ifname\_dissect\_".StripPrefixes($name); + my $dissectorname = "$ifname\_dissect\_struct\_".StripPrefixes($name); return if (defined($conformance->{noemit}->{$dissectorname})); |