// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1366 globals integer array MyClass_nextFree integer MyClass_firstFree=0 integer MyClass_maxIndex=0 integer Iterator_firstFree=0 integer Iterator_maxIndex=0 integer wurst_stack_depth=0 string array wurst_stack endglobals native testSuccess takes nothing returns nothing 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 MyClass_all takes string w__wurst_stackPos returns nothing 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 iterator in multi_modules, line 24" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling new_Iterator in multi_modules, line 5" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_Iterator in multi_modules, line 7" set wurst_stack_depth = wurst_stack_depth + 1 if Iterator_firstFree == 0 then if Iterator_maxIndex < 32768 then set Iterator_maxIndex = Iterator_maxIndex + 1 else call error("Out of memory: Could not create Iterator.", "when calling error in multi_modules, line 7") endif else set Iterator_firstFree = Iterator_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 - 1 loop exitwhen true endloop set wurst_stack_depth = wurst_stack_depth - 1 endfunction function initGlobals takes nothing returns nothing endfunction function new_MyClass takes string w__wurst_stackPos returns integer 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 alloc_MyClass in multi_modules, line 19" set wurst_stack_depth = wurst_stack_depth + 1 if MyClass_firstFree == 0 then if MyClass_maxIndex < 32768 then set MyClass_maxIndex = MyClass_maxIndex + 1 set this = MyClass_maxIndex else call error("Out of memory: Could not create MyClass.", "when calling error in multi_modules, line 19") set this = 0 endif else set MyClass_firstFree = MyClass_firstFree - 1 set this = MyClass_nextFree[MyClass_firstFree] endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 return this endfunction function main takes nothing returns nothing call initGlobals() set wurst_stack[wurst_stack_depth] = "when calling init_Test in multi_modules, line 1" set wurst_stack_depth = wurst_stack_depth + 1 call new_MyClass("when calling new_MyClass in multi_modules, line 33") call new_MyClass("when calling new_MyClass in multi_modules, line 34") call MyClass_all("when calling all in multi_modules, line 35") call testSuccess() set wurst_stack_depth = wurst_stack_depth - 1 endfunction function config takes nothing returns nothing endfunction