// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer array List_nextFree integer List_firstFree=0 integer List_maxIndex=0 integer array List_typeId 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 new_List 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_List in implicitConversionFailSimple, line 7" set wurst_stack_depth = wurst_stack_depth + 1 if List_firstFree == 0 then if List_maxIndex < 32768 then set List_maxIndex = List_maxIndex + 1 set this = List_maxIndex set List_typeId[this] = 1 else call error("Out of memory: Could not create List.", "when calling error in implicitConversionFailSimple, line 7") set this = 0 endif else set List_firstFree = List_firstFree - 1 set this = List_nextFree[List_firstFree] set List_typeId[this] = 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 return this endfunction function init_Test takes string w__wurst_stackPos returns nothing local integer fxs set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set fxs = new_List("when calling new_List in implicitConversionFailSimple, line 11") set wurst_stack[wurst_stack_depth] = "when calling get in implicitConversionFailSimple, line 12" set wurst_stack_depth = wurst_stack_depth + 1 if List_typeId[fxs] == 0 then if fxs == 0 then call error("Nullpointer exception when calling List.get", "when calling error in implicitConversionFailSimple, line 8") else call error("Called List.get on invalid object.", "when calling error in implicitConversionFailSimple, line 8") endif endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 endfunction function main takes nothing returns nothing call initGlobals() call init_Test("when calling init_Test in implicitConversionFailSimple, line 2") endfunction function config takes nothing returns nothing endfunction