From 4225a4f2dd2612a5b496bbd89868daf11c896b58 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 4 Sep 1999 13:30:33 +0000 Subject: [PATCH] 19990904-15:20 GMT+1 --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/arrays.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 409b551cc7..238af0f051 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19990904-15:20 GMT+1 Victor Szel + * source/rtl/arrays.c + ! hb_arrayScan() fixed. (Thanks Antonio) + 19990903-19:35 EDT David G. Holm * source/rtl/console.c ! Added #ifdef HARBOUR_USE_GTAPI/#endif around use of GT API diff --git a/harbour/source/rtl/arrays.c b/harbour/source/rtl/arrays.c index 001b57bf58..cebded0ed7 100644 --- a/harbour/source/rtl/arrays.c +++ b/harbour/source/rtl/arrays.c @@ -393,7 +393,7 @@ BOOL hb_arrayFill( PHB_ITEM pArray, PHB_ITEM pValue, ULONG ulStart, ULONG ulCoun ULONG hb_arrayScan( PHB_ITEM pArray, PHB_ITEM pValue, ULONG ulStart, ULONG ulCount ) { - if( IS_ARRAY( pArray ) && IS_NIL( pValue ) ) + if( IS_ARRAY( pArray ) && ! IS_NIL( pValue ) ) { PBASEARRAY pBaseArray = pArray->item.asArray.value; ULONG ulLen = pBaseArray->ulLen;