andijahja@cbn.net.id

harbour/ChangeLog

@@ -1,3 +1,10 @@
+2001-11-10 04:20 GMT +0700 Andi Jahja <harbour@cbn.net.id>
+   * source/rdd/dbf1.c
+      ! comment unused var ULONG ulRecNo
+
+   * source/rdd/dbfntx/dbfntx1.c
+      ! add type cast for MsVC
+
 2001-11-09 10:30 UTC-0800 Brian Hays <bhays@abacuslaw.com>
    * harbour/source/rtl/persist.prg
       * fixed error handling for LoadFromText()

harbour/source/rdd/dbf1.c

@@ -2220,7 +2220,9 @@ ERRCODE hb_dbfForceRel( DBFAREAP pArea )
 {
    LPDBRELINFO lpdbPendingRel;
    ERRCODE uiError;
+/*
    ULONG ulRecNo;
+*/
 
    HB_TRACE(HB_TR_DEBUG, ("hb_dbfForceRel(%p)", pArea));
 
@@ -2541,4 +2543,4 @@ HB_FUNC( DBF_GETFUNCTABLE )
       hb_retni( hb_rddInherit( pTable, &dbfTable, &dbfSuper, 0 ) );
    else
       hb_retni( FAILURE );
-}
+}

harbour/source/rdd/dbfntx/dbfntx1.c

@@ -1785,7 +1785,7 @@ static ERRCODE hb_ntxIndexCreate( LPNTXINDEX pIndex )
          switch( hb_itemType( pItem ) )
          {
             case HB_IT_STRING:
-               uiCurLen = hb_itemGetCLen( pItem );
+               uiCurLen = (USHORT) hb_itemGetCLen( pItem );
                if(uiCurLen > NTX_MAX_KEY )
                   uiCurLen = NTX_MAX_KEY ;
                if( pTag->KeyLength != uiCurLen )