diff --git a/harbour/ChangeLog b/harbour/ChangeLog index cf5b2b3a8e..d0ee9d3335 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,14 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-07-14 12:45 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * source/vm/extend.c + ! [REVERTED - I overlooked it] + Fixed hb_parvcx() to return "" instead of NULL when dealing + with array parameters out of bound or non-string. + (Borrowed from xhb by Ron Pinkas. Although the fix is + implemented differently in Harbour) + 2009-07-14 12:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/rtl/gtcrs/gtcrs.c * harbour/source/rtl/gttrm/gttrm.c diff --git a/harbour/source/vm/extend.c b/harbour/source/vm/extend.c index 201b1949f7..8f05c00d5b 100644 --- a/harbour/source/vm/extend.c +++ b/harbour/source/vm/extend.c @@ -666,8 +666,7 @@ const char * hb_parvcx( int iParam, ... ) ulArrayIndex = va_arg( va, ULONG ); va_end( va ); - pItem = hb_arrayGetItemPtr( pItem, ulArrayIndex ); - return pItem && HB_IS_STRING( pItem ) ? hb_itemGetCPtr( pItem ) : ""; + return hb_arrayGetCPtr( pItem, ulArrayIndex ); } }