*** empty log message ***

This commit is contained in:
Paul Tucker
1999-09-25 04:44:32 +00:00
parent 7ace5ecaea
commit 5258e45beb
2 changed files with 1 additions and 7 deletions

View File

@@ -1,8 +1,6 @@
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.
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

View File

@@ -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 )