XYplorer Beta Club

Code: Select all

"TEST"
	TESTA()	

	function TESTA(){
		echo "aaa";
		TESTB();
	}
	function TESTB(){
		echo "bbb";
		TESTC()
	}
	function TESTC(){
		echo "ccc";
		TESTD()
	}
	function TESTD(){
		echo "ddd";
		TESTE()
	}
	function TESTE(){
		echo "eee";
		TESTF()
	}
	function TESTF(){
		echo "fff";
		TESTG()
	}
	function TESTG(){
		echo "ggg";
		TESTH()
	}
	function TESTH(){ // -> crashhh in x64 
		echo "hhh";
		TESTI();
	}
	function TESTI(){ 
		echo "iii";
		TESTJ()
	}
	function TESTJ(){  // superior 32bit reaches and prints "jjj" 
		echo "jjj";
	}

Code: Select all

// 20250817: recursion depth checker
//            VB IDE goes till 202, then crash
//            VB EXE goes till 63, then crash (sometimes error "Out of stack space" before the crash)
//            TB IDE goes till 8, then crash
//            TB EXE goes till 8, then crash
func(1);

function func($i){
  copytext "Recursion depth: $i"; //copy text to clipboard to leave a trace before we crash
  if confirm("Recursion depth: $i<crlf>Click OK to go deeper.") {
    func($i + 1);
  }
}