diff options
author | Dimitri van Heesch <doxygen@gmail.com> | 2020-11-05 20:50:59 (GMT) |
---|---|---|
committer | Dimitri van Heesch <doxygen@gmail.com> | 2020-11-05 20:50:59 (GMT) |
commit | 0b54d06d4449d91a0890e589ba48daaf41794284 (patch) | |
tree | 579c0916f1e6bebf0806a01683aad2b164857a0b /src/perlmodgen.cpp | |
parent | bae68b877892a0916d3d8f1f3cccebe4a95882d2 (diff) | |
download | Doxygen-0b54d06d4449d91a0890e589ba48daaf41794284.zip Doxygen-0b54d06d4449d91a0890e589ba48daaf41794284.tar.gz Doxygen-0b54d06d4449d91a0890e589ba48daaf41794284.tar.bz2 |
Minor tweaks
Diffstat (limited to 'src/perlmodgen.cpp')
-rw-r--r-- | src/perlmodgen.cpp | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp index 8482768..c2d120f 100644 --- a/src/perlmodgen.cpp +++ b/src/perlmodgen.cpp @@ -1591,9 +1591,8 @@ void PerlModGenerator::generatePerlModForMember(const MemberDef *md,const Defini case MemberType_Dictionary: memType="dictionary"; break; } - /* DGA fix #7556 ANSI-C anonymous (unnamed) struct/unions have duplicated names (__unnamed__) */ name = md->name(); - if (md->isAnonymous()) name = "__unnamed__" + name.right(name.length() - 1); /* DGA: ensure unique name */ + if (md->isAnonymous()) name = "__unnamed" + name.right(name.length() - 1)+"__"; m_output.openHash() .addFieldQuotedString("kind", memType) @@ -1701,14 +1700,12 @@ void PerlModGenerator::generatePerlModForMember(const MemberDef *md,const Defini } } - /* DGA: fix #7495 Perlmod does not generate bitfield */ if (md->memberType() == MemberType_Variable && md->bitfieldString()) { - QCString bitfield = md->bitfieldString(); - if (bitfield.at(0) == ':') bitfield = bitfield.mid(1); - m_output.addFieldQuotedString("bitfield", bitfield); + QCString bitfield = md->bitfieldString(); + if (bitfield.at(0) == ':') bitfield = bitfield.mid(1); + m_output.addFieldQuotedString("bitfield", bitfield); } - /* DGA: end of fix #7495 */ const MemberDef *rmd = md->reimplements(); if (rmd) |