pidl/NDR: generate a LEVELS array for typedefs

metze

diff --git a/source/pidl/lib/Parse/Pidl/NDR.pm b/source/pidl/lib/Parse/Pidl/NDR.pm
index 25743f512fcd282d370067c29859103100079dda..10bd29715b93be1007edb81551040e132fb26819 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source/pidl/lib/Parse/Pidl/NDR.pm
@@ -287,6 +287,22 @@ sub GetElementLevelTable($$)
        return $order;
 }
 
+sub GetTypedefLevelTable($$$)
+{
+       my ($e, $data, $pointer_default) = @_;
+
+       my $order = [];
+
+       push (@$order, {
+               TYPE => "TYPEDEF"
+       });
+
+       my $i = 0;
+       foreach (@$order) { $_->{LEVEL_INDEX} = $i; $i+=1; }
+
+       return $order;
+}
+
 #####################################################################
 # see if a type contains any deferred data 
 sub can_contain_deferred($)
@@ -575,6 +591,7 @@ sub ParseTypedef($$)
                NAME => $d->{NAME},
                TYPE => $d->{TYPE},
                PROPERTIES => $d->{PROPERTIES},
+               LEVELS => GetTypedefLevelTable($d, $data, $pointer_default),
                DATA => $data,
                ORIGINAL => $d
        };