再起処理の書き直し

ゲーム作成にクイックソートを使おうと思い、
http://hspdev-wiki.net/?Sort%2FQuick
を使うことにしたのですが、配列の要素数が多いとスタック領域のオーバーフローが起きてしまいます。
そこで、下記のように再起処理を使わないのうに書き直したのですがstartIndexとendIndexの値がおかしいようで、エラーが出てしまいます。
どこを直せば正しく動作するでしょうか？



#module QuickSortSample
 
// 配列変数の入れ替え target(i1) ⇔ target(i2)
#deffunc qsExchange array target, int i1, int i2, local tmp
    tmp = target(i1) : target(i1) = target(i2) : target(i2) = tmp
    return

#const stackMax 2000
// 再帰用命令（内部利用）
#deffunc qsArgo array target, int startIndex_, int endIndex_, local std, local lastExchangedIndex
	dim startIndexes,stackMax
	dim endIndexes,stackMax
	dim shoribasho,stackMax
	stackIndex=0
	startIndexes(0)=startIndex_
	endIndexes(0)=endIndex_
	shoribasho(0)=0
	shorinext = 0	;1なら1回目のqsArgo飛ばし 2なら2回目も飛ばし
	repeat
		startIndex=startIndexes(stackIndex)
	 	endIndex=endIndexes(stackIndex)
	    std = target(startIndex)                                // 基準値（簡単のために一番端の要素を選択）
	    lastExchangedIndex = startIndex                      // 最後に基準値より小さい値を格納した要素
	 	stackIndex++
	 	if shorinext=0{
		    // 基準値よりも小さい値をひとまとまりにする
		    repeat endIndex - startIndex, startIndex + 1
		        if target(cnt) < std {                              // 降順にしたい場合はここを変更する
		            lastExchangedIndex++
		            qsExchange target, lastExchangedIndex, cnt
		        }
		    loop
		 
		    if startIndex < lastExchangedIndex {
		        // 基準値よりも小さい数値を格納した要素があった
		        qsExchange target, startIndex, lastExchangedIndex   // 基準値を正しい位置に移動
		 
		        if startIndex < lastExchangedIndex - 1 {
		            // 基準値よりも小さい値が複数ある場合、それらに対して再帰的にソートを実行
	//	            qsArgo target, startIndex, lastExchangedIndex - 1,jun
					startIndexes(stackIndex) = startIndex
					endIndex(stackIndex) = lastExchangedIndex-1
					shoribasho(stackIndex)=1
					shorinext=0
					continue
		        }
		    }
		}
		if shorinext!2{
		    if lastExchangedIndex < length(target) - 2 {
		        // 基準値よりも大きい値が複数ある場合、それらに対して再帰的にソートを実行
//  	        qsArgo target, lastExchangedIndex + 1, length(target) - 1,jun
				startIndexes(stackIndex) = lastExchangedIndex + 1
				endIndexes(stackIndex) = length(target)-1
				shoribasho(stackIndex)=2
				shorinext=0
				continue
		    }
		}
	    if cnt=0:break
	    shorinext = shoribasho(stackIndex)
	    stackIndex--
	    continue cnt-1
	loop
    return
 
#deffunc qSort array target
    qsArgo target, 0, length(target) - 1
    return

#global
// 以下 動作確認用サンプル
  randomize
 
    s = "ソート前："
    dim test, 100
    repeat length(test)
        test(cnt) = rnd(1000)
        s += str(test(cnt)) + ", "
    loop
    mes s
 
    qSort test
 
    s = "ソート後："
    repeat length(test)
        s += str(test(cnt)) + ", "
        m += str(jun(cnt)) + ", "
    loop
    mes s
 
    stop

HSPTV!掲示板