2008-05-19 09:01 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

* source/rtl/tget.prg
     % Minor code optimization.

   * contrib/rddads/adsfunc.c
     ! Minor correction.

harbour/ChangeLog

@@ -8,6 +8,13 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-05-19 09:01 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
+   * source/rtl/tget.prg
+     % Minor code optimization.
+
+   * contrib/rddads/adsfunc.c
+     ! Minor correction.
+
 2008-05-19 00:53 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
    * contrib/hbhpdf/harupdf.c
      ! Fixed HPDF_READFROMSTREAM() to not directly write into 
@@ -81,7 +88,6 @@
        for all tables, this way clearing a long standing 
        TODO in the source.
 
-
 2008-05-18 09:22 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
    * contrib/rddads/adsfunc.c
      + QUESTION added.

harbour/contrib/rddads/adsfunc.c

@@ -1495,7 +1495,7 @@ HB_FUNC( ADSGETHANDLETYPE )             /* DD, admin, table */
 /* nLastErr := AdsGetLastError( [ @cLastErr ] ) */
 HB_FUNC( ADSGETLASTERROR )
 {
-   UNSIGNED32 ulLastErr = 0;
+   UNSIGNED32 ulLastErr = ~AE_SUCCESS;
    UNSIGNED8  aucError[ ADS_MAX_ERROR_LEN + 1 ];
    UNSIGNED16 usLength = ADS_MAX_ERROR_LEN + 1;