From 99652c8eedf3ac01446ed49a20c1a8fcf711c99b Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 1 Feb 2002 06:04:17 +0000 Subject: [PATCH] Faster Upper() and Lower() as they use now hb_retclen_buffer() --- harbour/source/rtl/strcase.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/harbour/source/rtl/strcase.c b/harbour/source/rtl/strcase.c index 85197a4f87..3d42e8d684 100644 --- a/harbour/source/rtl/strcase.c +++ b/harbour/source/rtl/strcase.c @@ -132,9 +132,7 @@ HB_FUNC( LOWER ) char * pszBuffer = hb_itemGetC( pText ); ULONG ulLen = hb_itemGetCLen( pText ); - hb_retclen( hb_strLower( pszBuffer, ulLen ), ulLen ); - - hb_itemFreeC( pszBuffer ); + hb_retclen_buffer( hb_strLower( pszBuffer, ulLen ), ulLen ); } else hb_errRT_BASE_SubstR( EG_ARG, 1103, NULL, "LOWER", 1, hb_paramError( 1 ) ); @@ -150,10 +148,8 @@ HB_FUNC( UPPER ) char * pszBuffer = hb_itemGetC( pText ); ULONG ulLen = hb_itemGetCLen( pText ); - hb_retclen( hb_strUpper( pszBuffer, ulLen ), ulLen ); - - hb_itemFreeC( pszBuffer ); + hb_retclen_buffer( hb_strUpper( pszBuffer, ulLen ), ulLen ); } else hb_errRT_BASE_SubstR( EG_ARG, 1102, NULL, "UPPER", 1, hb_paramError( 1 ) ); -} +} \ No newline at end of file