From e2e2d24604f2514ef44ae491c9db91ed79a80dc5 Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Wed, 24 Oct 2007 17:59:19 +0000 Subject: [PATCH] 2007-10-24 20:57 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/source/rtl/hbbit.c + fixed HB_BITRESET() --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/hbbit.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e8cdc56a7d..56a1937e66 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-10-24 20:57 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/source/rtl/hbbit.c + + fixed HB_BITRESET() + 2007-10-24 17:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * debian/control ! Fixed pkg dependency to allow building Harbour on some diff --git a/harbour/source/rtl/hbbit.c b/harbour/source/rtl/hbbit.c index 013330ee91..4c22943e75 100644 --- a/harbour/source/rtl/hbbit.c +++ b/harbour/source/rtl/hbbit.c @@ -144,7 +144,7 @@ HB_FUNC( HB_BITRESET ) { HB_LONG lValue, lBit; if( hb_numParam( 1, &lValue ) && hb_numParam( 2, &lBit ) ) - hb_retnint( lValue & ( ( ~ ( HB_LONG ) 1 ) << lBit ) ); + hb_retnint( lValue & ( ~ ( ( HB_LONG ) 1 << lBit ) ) ); } HB_FUNC( HB_BITSHIFT )