// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals 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 integer x, 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 genericOverload2, line 5" 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] = 1 else call error("Out of memory: Could not create C.", "when calling error in genericOverload2, line 3") set this = 0 endif else set C_firstFree = C_firstFree - 1 set this = C_nextFree[C_firstFree] set C_typeId[this] = 1 endif set wurst_stack_depth = wurst_stack_depth - 1 - 1 return this endfunction function dispatch_C_test_C_foo takes integer this, integer t, string w__wurst_stackPos returns nothing set wurst_stack[wurst_stack_depth] = w__wurst_stackPos 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 genericOverload2, line 7") else call error("Called C.foo on invalid object.", "when calling error in genericOverload2, line 7") endif endif set wurst_stack[wurst_stack_depth] = "when calling foo in genericOverload2, line 7" set wurst_stack_depth = wurst_stack_depth + 1 call new_C(t, "when calling new_C in genericOverload2, line 8") set wurst_stack[wurst_stack_depth] = "when calling foo in genericOverload2, line 8" 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 genericOverload2, line 9") else call error("Called C.foo on invalid object.", "when calling error in genericOverload2, line 9") endif endif call testSuccess() set wurst_stack_depth = wurst_stack_depth - 1 - 1 - 1 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(1, "when calling new_C in genericOverload2, line 15") set wurst_stack[wurst_stack_depth] = "when calling test in genericOverload2, line 15" 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.test", "when calling error in genericOverload2, line 11") else call error("Called C.test on invalid object.", "when calling error in genericOverload2, line 11") endif endif set wurst_stack[wurst_stack_depth] = "when calling test in genericOverload2, line 11" set wurst_stack_depth = wurst_stack_depth + 1 call dispatch_C_test_C_foo(new_C(1, "when calling new_C in genericOverload2, line 12"), 1, "when calling foo in genericOverload2, line 13") set wurst_stack_depth = wurst_stack_depth - 1 - 1 - 1 endfunction function main takes nothing returns nothing call initGlobals() call init_test("when calling init_test in genericOverload2, line 1") endfunction function config takes nothing returns nothing endfunction