// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1366 globals integer ToStringClosure_firstFree=0 integer ToStringClosure_maxIndex=0 integer array LinkedList_nextFree integer LinkedList_firstFree=0 integer LinkedList_maxIndex=0 integer wurst_stack_depth=0 string array wurst_stack endglobals function initGlobals takes nothing returns nothing endfunction function error takes string msg, string w__wurst_stackPos returns nothing local integer stacktraceIndex local integer stacktraceLimit set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set w__wurst_stackPos = "" set stacktraceIndex = wurst_stack_depth set stacktraceLimit = 0 loop set stacktraceIndex = stacktraceIndex - 1 set stacktraceLimit = stacktraceLimit + 1 exitwhen stacktraceLimit > 20 or stacktraceIndex < 0 set w__wurst_stackPos = w__wurst_stackPos + "\n " + wurst_stack[stacktraceIndex] endloop call BJDebugMsg(msg + "\n" + w__wurst_stackPos) set wurst_stack_depth = wurst_stack_depth - 1 endfunction function LinkedList_foo takes integer this, string separator, string w__wurst_stackPos returns string set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_ToStringClosure_foo_test in genericFunctionOverload, line 10" set wurst_stack_depth = wurst_stack_depth + 1 if ToStringClosure_firstFree == 0 then if ToStringClosure_maxIndex < 32768 then set ToStringClosure_maxIndex = ToStringClosure_maxIndex + 1 else call error("Out of memory: Could not create ToStringClosure_foo_test.", "when calling error in genericFunctionOverload, line 10") endif else set ToStringClosure_firstFree = ToStringClosure_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_ToStringClosure_foo2_test in genericFunctionOverload, line 11" set wurst_stack_depth = wurst_stack_depth + 1 if ToStringClosure_firstFree == 0 then if ToStringClosure_maxIndex < 32768 then set ToStringClosure_maxIndex = ToStringClosure_maxIndex + 1 else call error("Out of memory: Could not create ToStringClosure_foo2_test.", "when calling error in genericFunctionOverload, line 11") endif else set ToStringClosure_firstFree = ToStringClosure_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 return separator endfunction function init_test takes string w__wurst_stackPos returns nothing local integer this set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling new_LinkedList in genericFunctionOverload, line 18" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_LinkedList in genericFunctionOverload, line 3" set wurst_stack_depth = wurst_stack_depth + 1 if LinkedList_firstFree == 0 then if LinkedList_maxIndex < 32768 then set LinkedList_maxIndex = LinkedList_maxIndex + 1 set this = LinkedList_maxIndex else call error("Out of memory: Could not create LinkedList.", "when calling error in genericFunctionOverload, line 3") set this = 0 endif else set LinkedList_firstFree = LinkedList_firstFree - 1 set this = LinkedList_nextFree[LinkedList_firstFree] endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 call LinkedList_foo(this, "a", "when calling foo in genericFunctionOverload, line 19") set wurst_stack_depth = wurst_stack_depth - 1 endfunction function main takes nothing returns nothing call initGlobals() call init_test("when calling init_test in genericFunctionOverload, line 1") endfunction function config takes nothing returns nothing endfunction