diff options
Diffstat (limited to 'pidl/lib/Parse/Pidl')
| -rw-r--r-- | pidl/lib/Parse/Pidl/NDR.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm index c1ac6001da..20f52bf9d5 100644 --- a/pidl/lib/Parse/Pidl/NDR.pm +++ b/pidl/lib/Parse/Pidl/NDR.pm @@ -125,6 +125,10 @@ sub GetElementLevelTable($$) if ($d eq "*") { $is_conformant = 1; if ($size = shift @size_is) { + if (has_property($e, "string")) { + $is_string = 1; + delete($e->{PROPERTIES}->{string}); + } } elsif ((scalar(@size_is) == 0) and has_property($e, "string")) { $is_string = 1; delete($e->{PROPERTIES}->{string}); |