2009-06-29 13:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* source/vm/arrays.c
  * source/rtl/dates.c
    ! Fixed TRACE calls.

  * utils/hbmk2/hbmk2.prg
    * Minor.

harbour/ChangeLog

@@ -17,6 +17,14 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-29 13:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/vm/arrays.c
+  * source/rtl/dates.c
+    ! Fixed TRACE calls.
+
+  * utils/hbmk2/hbmk2.prg
+    * Minor.
+
 2009-06-29 12:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/rdd/dbfntx/dbfntx1.c
     ! fixed typo in recent modification (it was causing GPF)
@@ -38,8 +46,8 @@
   * harbour/contrib/hbxbp/xbptreeview.prg
   * harbour/contrib/hbxbp/xbpwindow.prg
     + Added :setPointer() method to change the cursor shape for a widget.
-    ! Advanced implementation of Presentation Parameters. Now the 
-      base structure is almost like Xbase++ one. About to 
+    ! Advanced implementation of Presentation Parameters. Now the
+      base structure is almost like Xbase++ one. About to
       generate a Style Sheet based on PresParametrs array.
     ! Code tweaked more organized.
 

harbour/source/rtl/dates.c

@@ -365,7 +365,7 @@ long hb_dateUnformat( const char * szDate, const char * szDateFormat )
 {
    long lDate;
 
-   HB_TRACE(HB_TR_DEBUG, ("hb_dateFormat(%s, %p, %s)", szDate, szFormattedDate, szDateFormat));
+   HB_TRACE(HB_TR_DEBUG, ("hb_dateFormat(%s, %s)", szDate, szDateFormat));
 
    hb_dateUnformatRaw( szDate, szDateFormat, &lDate );
 

harbour/source/vm/arrays.c

@@ -714,7 +714,7 @@ BOOL hb_arraySetTD( PHB_ITEM pArray, ULONG ulIndex, double dTimeStamp )
 
 BOOL hb_arraySetTDT( PHB_ITEM pArray, ULONG ulIndex, LONG lJulian, LONG lMilliSec )
 {
-   HB_TRACE(HB_TR_DEBUG, ("hb_arraySetTDT(%p, %lu, %lf)", pArray, ulIndex, lJulian, lMilliSec));
+   HB_TRACE(HB_TR_DEBUG, ("hb_arraySetTDT(%p, %lu, %lu, %lu)", pArray, ulIndex, lJulian, lMilliSec));
 
    if( HB_IS_ARRAY( pArray ) && ulIndex > 0 && ulIndex <= pArray->item.asArray.value->ulLen )
    {

harbour/utils/hbmk2/hbmk2.prg

@@ -3984,6 +3984,7 @@ FUNCTION hbmk( aArgs, /* @ */ lPause, /* @ */ lUTF8 )
          #else
 
             cBin_Cprs := NIL
+            cOpt_Cprs := ""
             cOpt_CprsMin := ""
             cOpt_CprsMax := ""