From 2e05c047a3fc9a7eb1cfeeb9615cfdaffe8e9f64 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 17 Apr 2000 04:29:09 +0000 Subject: [PATCH] 20000417-06:32 GMT+1 Victor Szakats --- harbour/ChangeLog | 5 +++++ harbour/source/vm/asort.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 49220694f3..e7c4fa25f5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +20000417-06:32 GMT+1 Victor Szakats + + * source/vm/asort.c + ! Some fixes to ASORT() + 20000417-05:49 GMT+1 Victor Szakats * include/hbapi.h diff --git a/harbour/source/vm/asort.c b/harbour/source/vm/asort.c index 6c9be293d8..ec8a97790e 100644 --- a/harbour/source/vm/asort.c +++ b/harbour/source/vm/asort.c @@ -232,7 +232,7 @@ BOOL hb_arraySort( PHB_ITEM pArray, ULONG * pulStart, ULONG * pulCount, PHB_ITEM ULONG ulLen = pBaseArray->ulLen; ULONG ulStart; ULONG ulCount; - + if( pulStart && ( *pulStart >= 1 ) ) ulStart = *pulStart; else @@ -240,7 +240,7 @@ BOOL hb_arraySort( PHB_ITEM pArray, ULONG * pulStart, ULONG * pulCount, PHB_ITEM if( ulStart <= ulLen ) { - if( pulCount && ( *pulCount <= ulLen - ulStart ) ) + if( pulCount && *pulCount >= 1 && ( *pulCount <= ulLen - ulStart ) ) ulCount = *pulCount; else ulCount = ulLen - ulStart + 1;