From d9e8189b8599fe65d40c4f6b0979d73067e83f63 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 19 Oct 2002 14:14:57 +0000 Subject: [PATCH] some fixes on hb_parc() use from DbCreate() --- harbour/source/rdd/dbcmd.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c index 09de61e5f9..3669bb3305 100644 --- a/harbour/source/rdd/dbcmd.c +++ b/harbour/source/rdd/dbcmd.c @@ -1222,7 +1222,10 @@ HB_FUNC( DBCREATE ) BOOL bOpen; hb_retl( FALSE ); - szFileName = hb_parc( 1 ); + + if( ( szFileName = hb_parc( 1 ) ) == ( char * ) 0 ) + szFileName = ""; + pStruct = hb_param( 2 , HB_IT_ARRAY ); if( pStruct ) uiLen = ( USHORT ) hb_arrayLen( pStruct ); @@ -1277,14 +1280,16 @@ HB_FUNC( DBCREATE ) if( uiLen > HARBOUR_MAX_RDD_DRIVERNAME_LENGTH ) uiLen = HARBOUR_MAX_RDD_DRIVERNAME_LENGTH; - hb_strncpyUpper( cDriverBuffer, hb_parc( 3 ), uiLen ); + hb_strncpyUpper( cDriverBuffer, + hb_parc( 3 ) != ( char * ) 0 ? hb_parc( 3 ) : "", uiLen ); szDriver = cDriverBuffer; } else szDriver = s_szDefDriver; pFileName = hb_fsFNameSplit( szFileName ); - strncpy( szAlias, hb_parc( 5 ), HARBOUR_MAX_RDD_ALIAS_LENGTH ); + strncpy( szAlias, hb_parc( 5 ) != ( char * ) 0 ? hb_parc( 5 ) : "", + HARBOUR_MAX_RDD_ALIAS_LENGTH ); uiLen = strlen( szAlias ); if( uiLen == 0 ) strncpy( szAlias, pFileName->szName, HARBOUR_MAX_RDD_ALIAS_LENGTH );