From 8e3c73ea7ba8b076688d2c46ec1f3d65365cfbd8 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Fri, 6 Mar 2009 20:50:51 +0000 Subject: [PATCH] 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 --- harbour/ChangeLog | 5 +++++ harbour/source/rtl/dirdrive.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 24308a25a9..0cd802e9fc 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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. diff --git a/harbour/source/rtl/dirdrive.c b/harbour/source/rtl/dirdrive.c index f0c0e20b01..4ded674379 100644 --- a/harbour/source/rtl/dirdrive.c +++ b/harbour/source/rtl/dirdrive.c @@ -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 ); }