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

2001-10-23 20:08 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbcmd.c
     ! Fixed bug in dbCreate, that affected DBF RDD derived
       (ntx & cdx) with memo files.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-10-23 23:06:37 +00:00
parent 7e314697f0
commit a08b6beb2c
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-10-23 20:08 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rdd/dbcmd.c
! Fixed bug in dbCreate, that affected DBF RDD derived
(ntx & cdx) with memo files.
2001-10-23 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
! source/rdd/dbfntx1.c
! fixed support of numeric indexes for negative numbers

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

@@ -1306,6 +1306,7 @@ HB_FUNC( DBCREATE )
return;
}
hb_xfree( szFileName );
if( !bOpen )
{
hb_rddReleaseCurrentArea();
@@ -1327,7 +1328,9 @@ HB_FUNC( DBCREATE )
( ( AREAP ) s_pCurrArea->pArea )->lprfsHost = lprfsHost;
( ( AREAP ) s_pCurrArea->pArea )->rddID = uiRddID;
SELF_NEW( ( AREAP ) s_pCurrArea->pArea );
pInfo.abName = ( BYTE * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
//pInfo.abName = ( BYTE * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
szFileName = ( BYTE * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
pInfo.abName = szFileName;
strcpy( ( char * ) pInfo.abName, szSavedFileName );
pInfo.fShared = !hb_set.HB_SET_EXCLUSIVE;
( ( AREAP ) s_pCurrArea->pArea )->uiArea = s_uiCurrArea;
@@ -1338,9 +1341,10 @@ HB_FUNC( DBCREATE )
}
else
hb_retl( TRUE );
hb_xfree( pInfo.abName );
//hb_xfree( pInfo.abName );
hb_xfree( szFileName );
}
hb_xfree( szFileName );
//hb_xfree( szFileName );
}
HB_FUNC( DBDELETE )
@@ -3648,4 +3652,3 @@ HB_FUNC( __DBCOPY )
}
}