From 5258e45bebf6e52f1bb6947f1930fc1e527ed6fe Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Sat, 25 Sep 1999 04:44:32 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 4 +--- harbour/source/rtl/adir.prg | 4 ---- 2 files changed, 1 insertion(+), 7 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 66a0113c40..a90be53371 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,8 +1,6 @@ 19990925-00:20 EDT Paul Tucker * 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. + made a change - then reversed 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 diff --git a/harbour/source/rtl/adir.prg b/harbour/source/rtl/adir.prg index 52d6c01852..a1ff973d0b 100644 --- a/harbour/source/rtl/adir.prg +++ b/harbour/source/rtl/adir.prg @@ -60,15 +60,11 @@ 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 )