2001-10-23 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

harbour/ChangeLog

@@ -1,3 +1,7 @@
+2001-10-23 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+  ! source/rdd/dbfntx1.c
+     ! fixed support of numeric indexes for negative numbers
+
 2001-10-22 07:20 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
    *makefile.bc
      * removed -b option from hbmake

harbour/source/rdd/dbfntx/dbfntx1.c

@@ -171,6 +171,14 @@ static char * numToStr( PHB_ITEM pItem, char* szBuffer, USHORT length, USHORT de
                 dec, hb_itemGetND( pItem ) );
    }
    szBuffer[ length ] = 0;
+   if( hb_itemGetND( pItem ) < 0 )
+   {
+      char *ptr = szBuffer;
+      *ptr++ = ',';
+      for( ;*ptr;ptr++ )
+         if( *ptr >= '0' && *ptr <= '9' )
+            *ptr = (char) ( 92 - (int)*ptr );
+   }
    return szBuffer;
 }