fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2004-04-01 09:09 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/common/hbffind.c
     ! Fix for NT4

   * source/rdd/dbsort.prg
     * Fix by Mitja Podgornik
This commit is contained in:
Viktor Szakats
2004-04-01 07:02:06 +00:00
parent 3da6bbc443
commit c96529a45c
3 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-04-01 09:09 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/common/hbffind.c
! Fix for NT4
* source/rdd/dbsort.prg
* Fix by Mitja Podgornik
2004-04-01 08:49 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* bin/bld.bat

2
harbour/source/common/hbffind.c
View File

@@ -609,7 +609,7 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind )
bFound = TRUE;
}
if( ! bFound )
if( ! bFound && info->hFindFile != INVALID_HANDLE_VALUE )
{
while( FindNextFile( info->hFindFile, &info->pFindFileData ) )
{

6
harbour/source/rdd/dbsort.prg
View File

@@ -63,6 +63,12 @@ FUNCTION __dbSort( cToFileName, aFields, bFor, bWhile, nNext, nRecord, lRest )
RETURN .F.
ENDIF
/* Sort returns an empty table if source table contains only one record */
IF Lastrec() == 1
COPY TO ( cToFileName )
RETURN .T.
ENDIF
BEGIN SEQUENCE
dbCreate( cToFileName, aStruct,, .T., "" )