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

2009-03-06 21:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/dirdrive.c
    ! fixed ISDISK() and DISKCHANGE() return value - due to typo the
      logical value .T./.F. was reverted
This commit is contained in:
Przemyslaw Czerpak
2009-03-06 20:50:51 +00:00
parent c70a5b0d75
commit 8e3c73ea7b
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-03-06 21:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/dirdrive.c
! fixed ISDISK() and DISKCHANGE() return value - due to typo the
logical value .T./.F. was reverted
2009-03-06 17:33 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* utils/Makefile
* Minor reordering.

8
harbour/source/rtl/dirdrive.c
View File

@@ -96,9 +96,9 @@ HB_FUNC( ISDISK )
if( szDrive )
{
if( *szDrive >= 'A' && *szDrive <= 'Z' )
fResult = hb_fsIsDrv( *szDrive - 'A' );
fResult = hb_fsIsDrv( *szDrive - 'A' ) == 0;
else if( *szDrive >= 'a' && *szDrive <= 'z' )
fResult = hb_fsIsDrv( *szDrive - 'a' );
fResult = hb_fsIsDrv( *szDrive - 'a' ) == 0;
}
hb_retl( fResult );
}
@@ -111,9 +111,9 @@ HB_FUNC( DISKCHANGE )
if( szDrive )
{
if( *szDrive >= 'A' && *szDrive <= 'Z' )
fResult = hb_fsChDrv( *szDrive - 'A' );
fResult = hb_fsChDrv( *szDrive - 'A' ) == 0;
else if( *szDrive >= 'a' && *szDrive <= 'z' )
fResult = hb_fsChDrv( *szDrive - 'a' );
fResult = hb_fsChDrv( *szDrive - 'a' ) == 0;
}
hb_retl( fResult );
}