Resloves aSort Bug

1999-06-10 09:04:57 +00:00
parent 0219ca6544
commit f870b12e0f
2 changed files with 5 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990610-09:30 CET Patrick Mast (Changes made by Jose Lalin)
+  * source/rtl/asort.prg
+    Resloved bug (Changed line 28 )
+
 19990610-10:30 Alexander Kresin ( files posted by Marek Horodyski )
  + source/rtl/natmsg/msgpl852.c
  + source/rtl/natmsg/msgplmaz.c
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -25,7 +25,7 @@ function QuickSort( aSort, nLeft, nRight, bOrder )

   local nUp     := nLeft
   local nDown   := nRight
-   local xMiddle := aSort[ ( nLeft + nRight ) / 2 ]
+   local xMiddle := aSort[ int ( ( nLeft + nRight ) / 2 ) ]
   local xTemp
   local lOk     := .T.