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

2001-06-16 20:40 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-06-16 16:42:51 +00:00
parent c8398e01a3
commit a3b60e2a24
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-06-16 20:40 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbcmd.c
! Bug fixed in dbCreate(), which caused unreleased memory blocks.
2001-06-15 23:35 UTC+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/vm/Classe.c
* Hb_ClsScope finally working :-(

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

@@ -1288,7 +1288,6 @@ HB_FUNC( DBCREATE )
if( !bOpen )
{
hb_xfree( szFileName );
hb_rddReleaseCurrentArea();
hb_rddSelectWorkAreaNumber( uiPrevArea );
}
@@ -1313,10 +1312,15 @@ HB_FUNC( DBCREATE )
pInfo.fShared = !hb_set.HB_SET_EXCLUSIVE;
( ( AREAP ) s_pCurrArea->pArea )->uiArea = s_uiCurrArea;
if( SELF_OPEN( ( AREAP ) s_pCurrArea->pArea, &pInfo ) == FAILURE )
{
s_bNetError = TRUE; /* Temp fix! What about other types of errors? */
hb_rddReleaseCurrentArea();
}
else
hb_retl( TRUE );
hb_xfree( pInfo.abName );
}
hb_xfree( szFileName );
}
HB_FUNC( DBDELETE )