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

2002-05-07 14:19 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-05-07 10:15:32 +00:00
parent a2adc51e3f
commit 4e9f1a3685
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-05-07 08:00 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
* source/rtl/tbrowse.prg
! Bug fixed reported by Lorenzo Fiorini.
2002-05-07 14:19 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbf1.c
* Bug fixed in dbfCreate(), related to creating memo file

8
harbour/source/rdd/dbf1.c
View File

@@ -1588,6 +1588,8 @@ ERRCODE hb_dbfCreate( DBFAREAP pArea, LPDBOPENINFO pCreateInfo )
/* Create memo file */
if( bHasMemo )
{
char *tmp;
ERRCODE result;
pArea->szMemoFileName = ( char * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
pFileName = hb_fsFNameSplit( ( char * ) pCreateInfo->abName );
pArea->szMemoFileName[ 0 ] = 0;
@@ -1600,8 +1602,11 @@ ERRCODE hb_dbfCreate( DBFAREAP pArea, LPDBOPENINFO pCreateInfo )
strncat( pArea->szMemoFileName, hb_itemGetCPtr( pFileExt ),
_POSIX_PATH_MAX - strlen( pArea->szMemoFileName ) );
hb_itemRelease( pFileExt );
tmp = pCreateInfo->abName;
pCreateInfo->abName = ( BYTE * ) pArea->szMemoFileName;
return SELF_CREATEMEMFILE( ( AREAP ) pArea, pCreateInfo );
result = SELF_CREATEMEMFILE( ( AREAP ) pArea, pCreateInfo );
pCreateInfo->abName = tmp;
return result;
}
else
return SUCCESS;
@@ -1689,6 +1694,7 @@ ERRCODE hb_dbfOpen( DBFAREAP pArea, LPDBOPENINFO pOpenInfo )
pArea->szDataFileName = (char *) hb_xgrab( strlen( (char * ) pOpenInfo->abName)+1 );
strcpy( pArea->szDataFileName, ( char * ) pOpenInfo->abName );
pArea->atomAlias = hb_dynsymGet( ( char * ) pOpenInfo->atomAlias );
if( ( ( PHB_DYNS ) pArea->atomAlias )->hArea )
{
hb_errRT_DBCMD( EG_DUPALIAS, EDBCMD_DUPALIAS, NULL, ( char * ) pOpenInfo->atomAlias );