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

19991111-12:02 GMT+1 Victor Szel <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
1999-11-11 22:00:39 +00:00
parent 9d7c63add1
commit 84b244d06b
2 changed files with 28 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19991111-12:02 GMT+1 Victor Szel <info@szelvesz.hu>
* source/vm/dymsym.c
% hb_dynsymGet(), hb_dynsymFindName() - Further optimized, toupper() calls
changed to local uppercase conversion code. One variable eliminated.
19991111-11:19 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/vm/hvm.c
hb_stack.pItems initialized to NULL (required by fm.c module)

43
harbour/source/vm/dynsym.c
View File

@@ -33,8 +33,6 @@
*
*/
#include <ctype.h>
#include "extend.h"
#define SYM_ALLOCATED ( ( HB_SYMBOLSCOPE ) -1 )
@@ -138,16 +136,20 @@ PHB_DYNS hb_dynsymGet( char * szName ) /* finds and creates a symbol if not fou
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymGet(%s)", szName));
/* make a copy as we may get a const string, then turn it to uppercase */
/* NOTE: This block is optimized for speed [vszel] */
{
ULONG ulLen = strlen( szName );
int iLen = strlen( szName );
char * pDest = szUprName;
if( ulLen > HB_SYMBOL_NAME_LEN )
ulLen = HB_SYMBOL_NAME_LEN;
pDest[ ulLen ] = '\0';
while( ulLen-- )
*pDest++ = toupper( *szName++ );
if( iLen > HB_SYMBOL_NAME_LEN )
iLen = HB_SYMBOL_NAME_LEN;
pDest[ iLen ] = '\0';
while( iLen-- )
{
char cChar = *szName++;
*pDest++ = ( cChar >= 'a' && cChar <= 'z' ) ? cChar - ( 'a' - 'A' ) : cChar;
}
}
pDynSym = hb_dynsymFind( szUprName );
@@ -159,27 +161,28 @@ PHB_DYNS hb_dynsymGet( char * szName ) /* finds and creates a symbol if not fou
PHB_DYNS hb_dynsymFindName( char * szName ) /* finds a symbol */
{
PHB_DYNS pDynSym;
char szUprName[ HB_SYMBOL_NAME_LEN + 1 ];
HB_TRACE(HB_TR_DEBUG, ("hb_dynsymFindName(%s)", szName));
/* make a copy as we may get a const string, then turn it to uppercase */
/* NOTE: This block is optimized for speed [vszel] */
{
ULONG ulLen = strlen( szName );
int iLen = strlen( szName );
char * pDest = szUprName;
if( ulLen > HB_SYMBOL_NAME_LEN )
ulLen = HB_SYMBOL_NAME_LEN;
pDest[ ulLen ] = '\0';
while( ulLen-- )
*pDest++ = toupper( *szName++ );
if( iLen > HB_SYMBOL_NAME_LEN )
iLen = HB_SYMBOL_NAME_LEN;
pDest[ iLen ] = '\0';
while( iLen-- )
{
char cChar = *szName++;
*pDest++ = ( cChar >= 'a' && cChar <= 'z' ) ? cChar - ( 'a' - 'A' ) : cChar;
}
}
pDynSym = hb_dynsymFind( szUprName );
return pDynSym;
return hb_dynsymFind( szUprName );
}
PHB_DYNS hb_dynsymFind( char * szName )