// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1367 globals integer A_firstFree=0 integer A_maxIndex=0 integer array C_nextFree integer C_firstFree=0 integer C_maxIndex=0 integer array C_typeId integer wurst_stack_depth=0 string array wurst_stack endglobals native testSuccess takes nothing returns nothing 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_C 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_C in varargGenericMethodOverload, line 4" set wurst_stack_depth = wurst_stack_depth + 1 if C_firstFree == 0 then if C_maxIndex < 32768 then set C_maxIndex = C_maxIndex + 1 set this = C_maxIndex set C_typeId[this] = 2 else call error("Out of memory: Could not create C.", "when calling error in varargGenericMethodOverload, line 4") set this = 0 endif else set C_firstFree = C_firstFree - 1 set this = C_nextFree[C_firstFree] set C_typeId[this] = 2 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 this set wurst_stack[wurst_stack_depth] = w__wurst_stackPos set wurst_stack_depth = wurst_stack_depth + 1 set this = new_C("when calling new_C in varargGenericMethodOverload, line 13") set wurst_stack[wurst_stack_depth] = "when calling new_A in varargGenericMethodOverload, line 13" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling alloc_A in varargGenericMethodOverload, line 3" set wurst_stack_depth = wurst_stack_depth + 1 if A_firstFree == 0 then if A_maxIndex < 32768 then set A_maxIndex = A_maxIndex + 1 else call error("Out of memory: Could not create A.", "when calling error in varargGenericMethodOverload, line 3") endif else set A_firstFree = A_firstFree - 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 set wurst_stack[wurst_stack_depth] = "when calling foo in varargGenericMethodOverload, line 13" set wurst_stack_depth = wurst_stack_depth + 1 if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.foo", "when calling error in varargGenericMethodOverload, line 5") else call error("Called C.foo on invalid object.", "when calling error in varargGenericMethodOverload, line 5") endif endif set wurst_stack_depth = wurst_stack_depth - 1 set this = new_C("when calling new_C in varargGenericMethodOverload, line 14") set wurst_stack[wurst_stack_depth] = "when calling foo in varargGenericMethodOverload, line 14" set wurst_stack_depth = wurst_stack_depth + 1 if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.foo", "when calling error in varargGenericMethodOverload, line 6") else call error("Called C.foo on invalid object.", "when calling error in varargGenericMethodOverload, line 6") endif endif call testSuccess() 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 varargGenericMethodOverload, line 1") endfunction function config takes nothing returns nothing endfunction