2002-06-07 13:53 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

harbour/ChangeLog

@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-06-07 13:53 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbf1.c
+    ! Bug fixed in hb_dbfLockRecord(), reported by Richard Chidiak
+
 2002-06-06 23:21 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * contrib/rddads/ads1.c
     ! Fixed bug, related to creating databases with extended data types

harbour/source/rdd/dbf1.c

@@ -349,6 +349,17 @@ static ERRCODE hb_dbfLockRecord( DBFAREAP pArea, ULONG ulRecNo, BOOL * pResult,
    if( bExclusive )
       hb_dbfUnlockAllRecords( pArea );
 
+   if( pArea->ulNumLocksPos > 0 )
+   {
+      ULONG ul;
+      for( ul=0; ul< pArea->ulNumLocksPos; ul++ )
+         if( pArea->pLocksPos[ ul ] == ulRecNo )
+         {
+            * pResult = TRUE;
+            return SUCCESS;
+         }
+   }
+
    if( hb_fsLock( pArea->hDataFile, DBF_LOCKPOS + ulRecNo, 1, FL_LOCK ) )
    {
       if( pArea->ulNumLocksPos == 0 )               /* Create the list */