2006-07-17 13:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/make_tgz.sh
    * added hbpptest to list of tools rebuilt with shared library

  * harbour/source/rdd/dbcmd.c
    ! fixed possible access to uninitialized variable in __dbApp()/__dbCopy()

harbour/ChangeLog

@@ -8,6 +8,13 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+
+  * harbour/TODO
+    + added new item: Clean RDD code to be safe for return from RT errors
+      assigned to me
+
+2006-07-17 13:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/make_tgz.sh
     * added hbpptest to list of tools rebuilt with shared library
 
   * harbour/source/rdd/dbcmd.c

harbour/make_tgz.sh

@@ -245,7 +245,7 @@ then
     export L_USR="-L${HB_LIB_INSTALL} -l${name} ${ADD_LIBS}"
     export PRG_USR="\"-D_DEFAULT_INC_DIR='${_DEFAULT_INC_DIR}'\" ${PRG_USR}"
 
-    for utl in hbmake hbrun hbpp hbdoc hbtest
+    for utl in hbmake hbrun hbpp hbdoc hbtest hbpptest
     do
         (cd "utils/${utl}"
          rm -fR "./${HB_ARCHITECTURE}"

harbour/source/rdd/dbcmd.c

@@ -4614,7 +4614,7 @@ HB_FUNC( __DBTRANS )
 
 HB_FUNC( __DBAPP )
 {
-   BOOL bRetVal;
+   BOOL bRetVal = FALSE;
 
    if( ISCHAR( 1 ) )
    {
@@ -4640,7 +4640,6 @@ HB_FUNC( __DBAPP )
       else
       {
          hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "APPEND FROM" );
-         bRetVal = FALSE;
       }
    }
 
@@ -4649,7 +4648,7 @@ HB_FUNC( __DBAPP )
 
 HB_FUNC( __DBCOPY )
 {
-   BOOL bRetVal;
+   BOOL bRetVal = FALSE;
 
    if( ISCHAR( 1 ) )
    {
@@ -4675,7 +4674,6 @@ HB_FUNC( __DBCOPY )
       else
       {
          hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "COPY TO" );
-         bRetVal = FALSE;
       }
    }