From 4c0938d4abe6512271a51874365ecf455d5f3f70 Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Mon, 23 Nov 2009 20:44:39 +0000 Subject: [PATCH] 2009-11-23 22:42 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/contrib/rddsql/sqlbase.c ! fixed connection counter decrementation for not connected areas --- harbour/ChangeLog | 4 ++++ harbour/contrib/rddsql/sqlbase.c | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8166127702..bc40d22446 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-11-23 22:42 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/contrib/rddsql/sqlbase.c + ! fixed connection counter decrementation for not connected areas + 2009-11-23 20:26 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/win_tprn.prg * contrib/hbwin/win_prn1.c diff --git a/harbour/contrib/rddsql/sqlbase.c b/harbour/contrib/rddsql/sqlbase.c index 510cbd0f35..c4f374e617 100644 --- a/harbour/contrib/rddsql/sqlbase.c +++ b/harbour/contrib/rddsql/sqlbase.c @@ -631,7 +631,11 @@ static HB_ERRCODE sqlbaseClose( SQLBASEAREAP pArea ) hb_xfree( pArea->szQuery ); pArea->szQuery = NULL; } - pArea->pConnection->uiAreaCount--; + if( pArea->pConnection ) + { + /* It is possible to have areas without connection and SDD driver. Ex., arrayrdd. [Mindaugas] */ + pArea->pConnection->uiAreaCount--; + } return HB_SUCCESS; }