// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1367 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 dispatch_C_test_C_A_foo takes integer this, 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 modules_call_indirect, line 4") else call error("Called C.foo on invalid object.", "when calling error in modules_call_indirect, line 4") endif endif set wurst_stack[wurst_stack_depth] = "when calling foo in modules_call_indirect, line 4" set wurst_stack_depth = wurst_stack_depth + 1 set wurst_stack[wurst_stack_depth] = "when calling bar in modules_call_indirect, line 5" 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.bar", "when calling error in modules_call_indirect, line 6") else call error("Called C.bar on invalid object.", "when calling error in modules_call_indirect, line 6") endif endif call testSuccess() set wurst_stack_depth = wurst_stack_depth - 1 - 1 - 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 modules_call_indirect, line 10" 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 modules_call_indirect, line 8") 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 set wurst_stack[wurst_stack_depth] = "when calling construct_C in modules_call_indirect, line 10" set wurst_stack_depth = wurst_stack_depth + 1 call dispatch_C_test_C_A_foo(this, "when calling foo in modules_call_indirect, line 11") 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 modules_call_indirect, line 1" set wurst_stack_depth = wurst_stack_depth + 1 call new_C("when calling new_C in modules_call_indirect, line 13") set wurst_stack_depth = wurst_stack_depth - 1 endfunction function config takes nothing returns nothing endfunction