// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer SimpleFunc_firstFree=0 integer SimpleFunc_maxIndex=0 integer wurst_stack_depth=0 string array wurst_stack endglobals 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 initGlobals takes nothing returns nothing endfunction function main takes nothing returns nothing call initGlobals() set wurst_stack[wurst_stack_depth] = "when calling init_test in uninitialized4, line 1" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_SimpleFunc_test in uninitialized4, line 5" set wurst_stack_depth = wurst_stack_depth + 1 if SimpleFunc_firstFree == 0 then if SimpleFunc_maxIndex < 32768 then set SimpleFunc_maxIndex = SimpleFunc_maxIndex + 1 else call error("Out of memory: Could not create SimpleFunc_test.", "when calling error in uninitialized4, line 5") endif else set SimpleFunc_firstFree = SimpleFunc_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 endfunction function config takes nothing returns nothing endfunction