From 4b9b3376abb0b815a9d84af1f55d0aae7725ff70 Mon Sep 17 00:00:00 2001
From: Horacio Dario Roldan Kasimatis <harbour_ar@yahoo.com.ar>
Date: Tue, 27 Mar 2001 08:22:30 +0000
Subject: [PATCH] 2001-03-27 05:18 GMT-3 Horacio Roldan <horacioroldan@usa.net>
    * harbour/source/rdd/dbcmd.c      * fixed unallocated memory block in
 dbcreate

---
 harbour/ChangeLog          | 4 ++++
 harbour/source/rdd/dbcmd.c | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c48de38448..7d83ff37f4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-27 05:18 GMT-3 Horacio Roldan <horacioroldan@usa.net>
+   * harbour/source/rdd/dbcmd.c
+     * fixed unallocated memory block in dbcreate
+
 2001-02-26 19:10 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
    *utils/hbmake/hbmake.prg
       +Added support yo build librarys
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index ff5ffd0d20..b1f1add4cf 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -1280,6 +1280,7 @@ HB_FUNC( DBCREATE )
 
    if( SELF_CREATE( ( AREAP ) s_pCurrArea->pArea, &pInfo ) == FAILURE )
    {
+      hb_xfree( szFileName );
       hb_rddReleaseCurrentArea();
       hb_errRT_DBCMD( EG_ARG, EDBCMD_BADPARAMETER, NULL, "DBCREATE" );
       return;
@@ -1287,6 +1288,7 @@ HB_FUNC( DBCREATE )
 
    if( !bOpen )
    {
+      hb_xfree( szFileName );
       hb_rddReleaseCurrentArea();
       hb_rddSelectWorkAreaNumber( uiPrevArea );
    }