// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer array I_nextFree integer I_firstFree=0 integer I_maxIndex=0 endglobals native testSuccess takes nothing returns nothing function initGlobals takes nothing returns nothing set I_firstFree = 0 set I_maxIndex = 0 endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function alloc_B takes nothing returns integer local integer this if I_firstFree == 0 then if I_maxIndex < 32768 then set I_maxIndex = I_maxIndex + 1 set this = I_maxIndex else call error("Out of memory: Could not create B.") set this = 0 endif else set I_firstFree = I_firstFree - 1 set this = I_nextFree[I_firstFree] endif return this endfunction function B_init takes integer this returns nothing endfunction function construct_B takes integer this returns nothing call B_init(this) endfunction function new_B takes nothing returns integer local integer this = alloc_B() call construct_B(this) return this endfunction function alloc_C takes nothing returns integer local integer this if I_firstFree == 0 then if I_maxIndex < 32768 then set I_maxIndex = I_maxIndex + 1 set this = I_maxIndex else call error("Out of memory: Could not create C.") set this = 0 endif else set I_firstFree = I_firstFree - 1 set this = I_nextFree[I_firstFree] endif return this endfunction function C_init takes integer this returns nothing endfunction function construct_C takes integer this returns nothing call C_init(this) endfunction function new_C takes nothing returns integer local integer this = alloc_C() call construct_C(this) return this endfunction function init_test takes nothing returns nothing local integer a = new_B() local integer b = new_B() local integer c = new_C() if not (a == b or a == c) then call testSuccess() endif endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction