see changelog

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19990617-12:40 CET Eddie Runia
+  * source/rtl/dir.c
+    hb_chmod should be _chmod
+  * tests/working/round.prg
+    loop shortened to 100 (I thought the program has crashed, while testalling)
+
 19990617-12:20 CET Eddie Runia
   * source/compiler/harbour.y
     GetLocalVarPos : OurMalloc( sizeof(PVAR) ) should be sizeof(VAR)

harbour/source/rtl/dir.c

@@ -263,7 +263,7 @@ HARBOUR HB_DIRECTORY( void )
 	 aatrib[0] = '\0';
 #else
          /* TODO: seems to not clear on root entries ? */
-         attrib = hb_chmod(fullfile,0);
+         attrib = _chmod(fullfile,0);
          if (attrib & FA_ARCH)
             strcat(aatrib,"A");
          if (attrib & FA_DIREC)

harbour/tests/working/round.prg

@@ -9,7 +9,7 @@
 function main()
 local n, value := -5
 
-   for n := 1 to 10000
+   for n := 1 to 100
       OUTSTD(NewLine)
       OUTSTD(value)
       OUTSTD(round(value, 3))