fixed bug on hb_strncpyUpper() use from DbUseArea()

2003-09-17 19:40:56 +00:00
parent 98b1bc7596
commit 6bea8d7eb0
1 changed files with 3 additions and 2 deletions
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -1979,9 +1979,10 @@ HB_FUNC( DBUSEAREA )
      hb_rddReleaseCurrentArea();

   hb_rddCheck();
-   if( ISCHAR(2) )
+   if( ISCHAR(2) && hb_parclen( 2 ) )
   {
-      hb_strncpyUpper( szDriverBuffer, hb_parc( 2 ), HARBOUR_MAX_RDD_DRIVERNAME_LENGTH );
+      hb_strncpyUpper( szDriverBuffer, hb_parc( 2 ),
+                       min( hb_parclen( 2 ), HARBOUR_MAX_RDD_DRIVERNAME_LENGTH ) );
      szDriver = szDriverBuffer;
   }
   else