fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2016-04-18 18:05 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/rtl/strrepl.c
    ! fixed hb_strReplace() for strings longer then 1024 bytes and
      array used in 3-rd parameter.
This commit is contained in:
Przemysław Czerpak
2016-04-18 18:05:02 +02:00
parent 7d1b59482d
commit 836e6420ba
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -10,6 +10,11 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2016-04-18 18:05 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/strrepl.c
! fixed hb_strReplace() for strings longer then 1024 bytes and
array used in 3-rd parameter.
2016-04-18 17:33 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/gtqtc/gtqtc1.cpp
* src/rtl/gtwin/gtwin.c

11
src/rtl/strrepl.c
View File

@@ -88,13 +88,12 @@ HB_FUNC( HB_STRREPLACE )
uc = ( HB_UCHAR ) pszSrc[ nAt ];
else
{
if( HB_IS_HASH( pSrc ) )
pDst = hb_hashGetKeyAt( pSrc, nAt + 1 );
else
pDst = hb_arrayGetItemPtr( pSrc, nAt + 1 );
if( hb_itemGetCLen( pDst ) == 0 )
PHB_ITEM pItem = HB_IS_HASH( pSrc ) ?
hb_hashGetKeyAt( pSrc, nAt + 1 ) :
hb_arrayGetItemPtr( pSrc, nAt + 1 );
if( hb_itemGetCLen( pItem ) == 0 )
continue;
uc = ( HB_UCHAR ) hb_itemGetCPtr( pDst )[ 0 ];
uc = ( HB_UCHAR ) hb_itemGetCPtr( pItem )[ 0 ];
}
if( ptrOpt[ uc ] == 0 )
ptrOpt[ uc ] = nAt + 1;