// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1366 globals integer array I_nextFree integer I_firstFree=0 integer I_maxIndex=0 integer array I_typeId integer C_firstFree=0 integer C_maxIndex=0 integer D_firstFree=0 integer D_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 new_B 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_B in genericsSubstitute3, line 10" set wurst_stack_depth = wurst_stack_depth + 1 if I_firstFree == 0 then if I_maxIndex < 32768 then set I_maxIndex = I_maxIndex + 1 set this = I_maxIndex set I_typeId[this] = 6 else call error("Out of memory: Could not create B.", "when calling error in genericsSubstitute3, line 10") set this = 0 endif else set I_firstFree = I_firstFree - 1 set this = I_nextFree[I_firstFree] set I_typeId[this] = 6 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 b set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set b = new_B("when calling new_B in genericsSubstitute3, line 14") set wurst_stack[wurst_stack_depth] = "when calling new_D in genericsSubstitute3, line 15" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_D in genericsSubstitute3, line 12" set wurst_stack_depth = wurst_stack_depth + 1 if D_firstFree == 0 then if D_maxIndex < 32768 then set D_maxIndex = D_maxIndex + 1 else call error("Out of memory: Could not create D.", "when calling error in genericsSubstitute3, line 12") endif else set D_firstFree = D_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 set wurst_stack[wurst_stack_depth] = "when calling new_C in genericsSubstitute3, line 15" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_C in genericsSubstitute3, line 11" set wurst_stack_depth = wurst_stack_depth + 1 if C_firstFree == 0 then if C_maxIndex < 32768 then set C_maxIndex = C_maxIndex + 1 else call error("Out of memory: Could not create C.", "when calling error in genericsSubstitute3, line 11") endif else set C_firstFree = C_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 set wurst_stack[wurst_stack_depth] = "when calling bla in genericsSubstitute3, line 15" set wurst_stack_depth = wurst_stack_depth + 1 if I_typeId[b] == 0 then if b == 0 then call error("Nullpointer exception when calling I.bla", "when calling error in genericsSubstitute3, line 4") else call error("Called I.bla on invalid object.", "when calling error in genericsSubstitute3, line 4") 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 genericsSubstitute3, line 1") endfunction function config takes nothing returns nothing endfunction