archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-18 23:18:56 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

- added a skeleton for new layers

Browse source 
- a bit cleanup
This commit is contained in:
Harald Radi 2002-07-19 16:19:00 +00:00
parent fd428a4882
commit cbe4f69663
6 changed files with 246 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ext/rpc/com/com_wrapper.c
View file

@ -857,7 +857,7 @@ ZEND_API int php_COM_load_typelib(ITypeLib *TypeLib, int mode)
while (SUCCEEDED(TypeInfo->lpVtbl->GetVarDesc(TypeInfo, j, &pVarDesc))) {
BSTR bstr_ids;
zend_constant c;
zval exists, results;
zval exists, results, value;
char *const_name;
TypeInfo->lpVtbl->GetNames(TypeInfo, pVarDesc->memid, &bstr_ids, 1, &NameCount);
@ -883,10 +883,16 @@ ZEND_API int php_COM_load_typelib(ITypeLib *TypeLib, int mode)
continue;
}
php_variant_to_zval(pVarDesc->lpvarValue, &c.value, CP_ACP);
c.flags = mode;
php_variant_to_zval(pVarDesc->lpvarValue, &value, CP_ACP);
/* we only import enumerations (=int) */
if (Z_TYPE(value) == IS_LONG) {
c.flags = mode;
c.value.type = IS_LONG;
c.value.value.lval = Z_LVAL(value);
c.module_number = 0; /* the module number is not available here */
zend_register_constant(&c TSRMLS_CC);
zend_register_constant(&c TSRMLS_CC);
}
j++;
}