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

2001-10-31 11:48 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-10-31 08:47:04 +00:00
parent 613cf1af23
commit 7dfcab164f
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-10-31 11:48 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbcmd.c
! fixed alias name checking in dbUseArea()
2001-10-30 21:15 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
* bin/bld.bat
* Added Required winspool.lib for msvc builds

12
harbour/source/rdd/dbcmd.c
View File

@@ -1909,10 +1909,16 @@ HB_FUNC( DBUSEAREA )
pFileName = hb_fsFNameSplit( szFileName );
strncpy( szAlias, hb_parc( 4 ), HARBOUR_MAX_RDD_ALIAS_LENGTH );
uiLen = strlen( szAlias );
if( uiLen == 0 )
if( strlen( szAlias ) == 0 )
strncpy( szAlias, pFileName->szName, HARBOUR_MAX_RDD_ALIAS_LENGTH );
else if( uiLen == 1 )
uiLen = strlen( szAlias );
if( szAlias[ 0 ] >= '0' && szAlias[ 0 ] <= '9' )
{
hb_xfree( pFileName );
hb_errRT_DBCMD( EG_DUPALIAS, EDBCMD_DUPALIAS, NULL, "DBUSEAREA" );
return;
}
if( uiLen == 1 )
{
/* Alias with a single letter. Only are valid 'L' and > 'M' */
if( toupper( szAlias[ 0 ] ) < 'N' && toupper( szAlias[ 0 ] ) != 'L' )