// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1367 globals integer array Blub_nextFree integer Blub_firstFree=0 integer Blub_maxIndex=0 integer array Blub_typeId integer array A_nextFree integer A_firstFree=0 integer A_maxIndex=0 integer array A_typeId integer array B_nextFree integer B_firstFree=0 integer B_maxIndex=0 integer array A_x integer array B_x endglobals native testSuccess takes nothing returns nothing function initGlobals takes nothing returns nothing endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function new_B takes integer x returns integer local integer this if B_firstFree == 0 then if B_maxIndex < 32768 then set B_maxIndex = B_maxIndex + 1 set this = B_maxIndex else call error("Out of memory: Could not create B.") set this = 0 endif else set B_firstFree = B_firstFree - 1 set this = B_nextFree[B_firstFree] endif set B_x[this] = x return this endfunction function dispatch_Blub_test_Blub_foo takes integer this, integer t, integer s returns integer if Blub_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling Blub.foo") else call error("Called Blub.foo on invalid object.") endif endif if A_typeId[t] == 0 then if t == 0 then call error("Nullpointer exception when calling A.foo") else call error("Called A.foo on invalid object.") endif endif set this = new_B(A_x[t] + B_x[s]) return this endfunction function init_test takes nothing returns nothing local integer temp local integer this local integer this_1 if A_firstFree == 0 then if A_maxIndex < 32768 then set A_maxIndex = A_maxIndex + 1 set this = A_maxIndex set A_typeId[this] = 1 else call error("Out of memory: Could not create A.") set this = 0 endif else set A_firstFree = A_firstFree - 1 set this = A_nextFree[A_firstFree] set A_typeId[this] = 1 endif set A_x[this] = 3 set temp = new_B(4) if Blub_firstFree == 0 then if Blub_maxIndex < 32768 then set Blub_maxIndex = Blub_maxIndex + 1 set this_1 = Blub_maxIndex set Blub_typeId[this_1] = 4 else call error("Out of memory: Could not create Blub_callMe_test.") set this_1 = 0 endif else set Blub_firstFree = Blub_firstFree - 1 set this_1 = Blub_nextFree[Blub_firstFree] set Blub_typeId[this_1] = 4 endif if B_x[dispatch_Blub_test_Blub_foo(this_1, this, dispatch_Blub_test_Blub_foo(this_1, this, temp))] == 10 then call testSuccess() endif endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction