bug fix

1999-08-07 15:21:43 +00:00
parent 069980257b
commit 4e4e5f3c39
1 changed files with 3 additions and 1 deletions
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -50,7 +50,9 @@ function aSort( aIn, nStart, nCount, bBlock )
        bBlock := {| x, y | x < y }
   ENDIF

-   QuickSort( aIn, nStart, nCount, bBlock )
+   IF len( aIn ) > 0
+      QuickSort( aIn, nStart, nCount, bBlock )
+   ENDIF

 return aIn