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

2012-11-10 18:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* src/rtl/rat.c
    % Small optimization.
This commit is contained in:
Pritpal Bedi
2012-11-11 02:48:06 +00:00
parent cfcc400c75
commit aa9f9e3569
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-11-10 18:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* src/rtl/rat.c
% Small optimization.
2012-11-11 02:38 UTC+0100 Viktor Szakats (harbour syenar.net)
+ extras/gtwvw/wvt2wvw.ch
- extras/gtwvw/tests/wvt2wvw.ch

2
harbour/src/rtl/rat.c
View File

@@ -65,6 +65,7 @@ HB_FUNC( RAT )
if( nTo >= 0 )
{
PHB_CODEPAGE cdp = hb_vmCDP();
const char * pszSub = hb_parc( 1 );
const char * pszText = hb_parc( 2 );
@@ -73,7 +74,6 @@ HB_FUNC( RAT )
if( pszText[ nTo ] == *pszSub &&
memcmp( pszSub, pszText + nTo, nSubLen ) == 0 )
{
PHB_CODEPAGE cdp = hb_vmCDP();
if( HB_CDP_ISCHARIDX( cdp ) )
nPos = hb_cdpTextLen( cdp, pszText, nTo ) + 1;
else