From d92e4d553b7e92898902f6ede7d034e2dd0b36ed Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 17 Sep 2009 22:03:09 +0000
Subject: [PATCH] 2009-09-18 00:02 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/filebuf.c     ! fixed missing
 FS IO error setting on local lock collisions

  * harbour/tests/tb1.prg
    * added my copyright note
---
 harbour/ChangeLog            | 7 +++++++
 harbour/source/rtl/filebuf.c | 4 ++++
 harbour/tests/tb1.prg        | 9 +++++++++
 3 files changed, 20 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 129aca200d..19a73657d8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-09-18 00:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/filebuf.c
+    ! fixed missing FS IO error setting on local lock collisions
+
+  * harbour/tests/tb1.prg
+    * added my copyright note
+
 2009-09-17 16:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/external/libpng/Makefile
     * disabled when XCC compiler is used - it cannot compile it
diff --git a/harbour/source/rtl/filebuf.c b/harbour/source/rtl/filebuf.c
index 881c2295cb..f5c71d10b1 100644
--- a/harbour/source/rtl/filebuf.c
+++ b/harbour/source/rtl/filebuf.c
@@ -489,6 +489,8 @@ static BOOL s_fileLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET ulLen,
       hb_threadLeaveCriticalSection( &s_fileMtx );
       if( fLockFS )
          hb_fsLockLarge( pFile->hFile, ulStart, ulLen, ( USHORT ) iType );
+      else
+         hb_fsSetError( fResult ? 0 : 33 );
    }
    else
    {
@@ -505,6 +507,8 @@ static BOOL s_fileLock( PHB_FILE pFile, HB_FOFFSET ulStart, HB_FOFFSET ulLen,
             hb_threadLeaveCriticalSection( &s_fileMtx );
          }
       }
+      else
+         hb_fsSetError( fResult ? 0 : 33 );
    }
 
    return fResult;
diff --git a/harbour/tests/tb1.prg b/harbour/tests/tb1.prg
index 3c4a7b59de..0b28e6fb88 100644
--- a/harbour/tests/tb1.prg
+++ b/harbour/tests/tb1.prg
@@ -2,6 +2,15 @@
  * $Id$
  */
 
+/*
+ * Harbour Project source code:
+ *    demonstration/test code for TBrowse class
+ *
+ * Copyright 2009 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
+ * www - http://www.harbour-project.org
+ *
+ */
+
 #include "inkey.ch"
 #include "button.ch"
 #include "setcurs.ch"