PIDL fix for using external types with wireshark backend

[kai/samba-autobuild/.git] / pidl / lib / Parse / Pidl / Wireshark / Conformance.pm

diff --git a/pidl/lib/Parse/Pidl/Wireshark/Conformance.pm b/pidl/lib/Parse/Pidl/Wireshark/Conformance.pm
index 5c37b4a0c4f8eab2f02851e896d85c7f86ab0c92..1dec647d87d19886f207584c00a6ed690d0ee351 100644 (file)
--- a/pidl/lib/Parse/Pidl/Wireshark/Conformance.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/Conformance.pm
@@ -110,6 +110,7 @@ use strict;
 
 use Parse::Pidl qw(fatal warning error);
 use Parse::Pidl::Util qw(has_property);
+use Parse::Pidl::Typelist qw(addType);
 
 sub handle_type($$$$$$$$$$)
 {
@@ -149,6 +150,17 @@ sub handle_type($$$$$$$$$$)
                VALSSTRING => $valsstring,
                ALIGNMENT => $alignment
        };
+
+       addType({
+               NAME => $name,
+               TYPE => "CONFORMANCE",
+               BASEFILE => "conformance file",
+               DATA => {
+                       NAME => $name,
+                       TYPE => "CONFORMANCE",
+                       ALIGN => $alignment
+               }
+       });
 }
 
 sub handle_tfs($$$$$)