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

@@ -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

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;

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"