*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,13 @@
+19990925-00:20 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/rtl/adir.prg
+    + Added an #ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY around the
+      directory call.  The Clipper behaviour is strictly a bug and there
+      is no need to duplicate it.
+  * source/rtl/asort.prg
+    * The initial test to determine if the codeblock is going to return
+      a logical was passing a numeric as a test - and the codeblock may
+      not have been expecting it.
+
 19990925-05:57 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/vm/dynsym.c
     ! HB___DYNSGETNAME() now validates the index parameter passed.

harbour/source/rtl/adir.prg

@@ -60,11 +60,15 @@ FUNCTION aDir( cFileMask, aName, aSize, aDate, aTime, aAttr )
 
    // ;
 
+#ifdef HARBOUR_STRICT_CLIPPER_COMPATIBILITY
    IF ISARRAY( aAttr )
       aDir := Directory( cFileMask, "HSD" )
    ELSE
       aDir := Directory( cFileMask )
    ENDIF
+#else
+   aDir := Directory( cFileMask, "HSD" )
+#endif
 
    IF ISARRAY( aName )
       nNameLen := Len( aName )

harbour/source/rtl/asort.prg

@@ -67,7 +67,7 @@ FUNCTION aSort( aArray, nStart, nCount, bBlock )
                   since the codeblock will be called one more time for the
                   first logical element than in Clipper. */
 
-         IF !ISBLOCK( bBlock ) .OR. !( ISLOG( Eval( bBlock, nStart, nStart ) ) )
+         IF !ISBLOCK( bBlock ) .OR. !( ISLOG( Eval( bBlock, aArray[1], aArray[1] ) ) )
             bBlock := {| x, y | x < y }
          ENDIF