diff options
Diffstat (limited to 'source4/pidl')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm index f61ce89ee8..a4c6ecdba0 100644 --- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm @@ -16,6 +16,8 @@ use Parse::Pidl::Dump qw(DumpTypedef DumpFunction); use Parse::Pidl::Ethereal::Conformance qw(ReadConformance); my %types; +my %hf; +my @ett; my $conformance = {imports=>{}}; @@ -280,8 +282,6 @@ sub ElementLevel($$$$$) } elsif ($conformance->{imports}->{$l->{DATA_TYPE}}) { $call = $conformance->{imports}->{$l->{DATA_TYPE}}; } else { - warn("Unknown data type `$l->{DATA_TYPE}'"); - pidl_code "/* FIXME: Handle unknown data type $l->{DATA_TYPE} */"; if ($l->{DATA_TYPE} =~ /^([a-z]+)\_(.*)$/) { pidl_code "offset = $1_dissect_$2(tvb,offset,pinfo,tree,drep,$hf,$param);"; @@ -705,6 +705,8 @@ sub Parse($$$$) $tabs = ""; %res = (code=>"",def=>"",hdr=>""); + %hf = (); + @ett = (); my $notice = "/* DO NOT EDIT @@ -764,8 +766,6 @@ sub Parse($$$$) # ETT ############################################################################### -my @ett = (); - sub register_ett($) { my $name = shift; @@ -797,8 +797,6 @@ sub DumpEttDeclaration() # HF ############################################################################### -my %hf = (); - sub register_hf_field($$$$$$$$) { my ($index,$name,$filter_name,$ft_type,$base_type,$valsstring,$mask,$blurb) = @_; |