#i52208# correct typeblob for exceptions/strcuts

This commit is contained in:
Juergen Schmidt 2005-10-25 11:59:40 +00:00
parent 5876043501
commit 9e2a3ff7c0

View file

@ -4,9 +4,9 @@
*
* $RCSfile: typeblob.cxx,v $
*
* $Revision: 1.2 $
* $Revision: 1.3 $
*
* last change: $Author: jsc $ $Date: 2005-09-09 13:50:40 $
* last change: $Author: jsc $ $Date: 2005-10-25 12:59:40 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
@ -532,6 +532,11 @@ void* getTypeBlob(Reference< XHierarchicalNameAccess > xTDmgr,
superCount, memberCount, 0,
(sal_uInt16)typeParams.getLength());
// set super type
if (superCount > 0) {
writer.setSuperTypeName(0, uSuperType);
}
sal_uInt16 i=0;
for (i=0; i < memberCount; i++)
{
@ -583,6 +588,11 @@ void* getTypeBlob(Reference< XHierarchicalNameAccess > xTDmgr,
uTypeName.replace('.', '/'),
superCount, memberCount, 0, 0);
// set super type
if (superCount > 0) {
writer.setSuperTypeName(0, uSuperType);
}
for (sal_Int16 i=0; i < memberCount; i++)
{
writer.setFieldData(i, OUString(), OUString(), RT_ACCESS_READWRITE,