From f9d684041f144ff5e468dcfe714288ac873e4c13 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 22 Jun 2010 14:49:36 +0000
Subject: [PATCH] 2010-06-22 16:49 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/src/rdd/dbcmd.c     * changed HB_LONG to
 int in dbSelectArea()

---
 harbour/ChangeLog       | 4 ++++
 harbour/src/rdd/dbcmd.c | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ff6dda4b5c..f10f4f0ca4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-06-22 16:49 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/rdd/dbcmd.c
+    * changed HB_LONG to int in dbSelectArea()
+
 2010-06-22 15:22 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbsqlit3/hbsqlit3.c
     + Changed to use hb_fopen().
diff --git a/harbour/src/rdd/dbcmd.c b/harbour/src/rdd/dbcmd.c
index d3608660bc..859c04387e 100644
--- a/harbour/src/rdd/dbcmd.c
+++ b/harbour/src/rdd/dbcmd.c
@@ -766,19 +766,19 @@ HB_FUNC( DBSELECTAREA )
    }
    else
    {
-      HB_LONG lNewArea = hb_parnl( 1 );
+      int iNewArea = hb_parni( 1 );
 
       /*
        * NOTE: lNewArea >= HB_RDD_MAX_AREA_NUM used intentionally
        * In Clipper area 65535 is reserved for "M" alias [druzus]
        */
-      if( lNewArea < 1 || lNewArea >= HB_RDD_MAX_AREA_NUM )
+      if( iNewArea < 1 || iNewArea >= HB_RDD_MAX_AREA_NUM )
       {
          hb_rddSelectFirstAvailable();
       }
       else
       {
-         hb_rddSelectWorkAreaNumber( lNewArea );
+         hb_rddSelectWorkAreaNumber( iNewArea );
       }
    }