array Base_nextFree458 integer Base_firstFree663 integer Base_maxIndex160 array Base_typeId720 array Base_next625 integer Base_firstFree663 = 0 integer Base_maxIndex160 = 0 function initGlobals102() { } function main496() { local integer suba135 local integer subb339 initGlobals102(); suba_135 = new_SubClassA196(); subb_339 = new_SubClassB662(); Base_next_625[suba_135] = subb_339; dispatch_SubClassA_test_SubClassA_clear187(suba_135); } function config134() { } IS_NATIVE function testSuccess198() { } function new_SubClassA196() returns integer { local integer this518 if (Base_firstFree_663 == 0) { if (Base_maxIndex_160 < 32768) { Base_maxIndex_160 = (Base_maxIndex_160 + 1); this_518 = Base_maxIndex_160; Base_typeId_720[this_518] = 2; } else { error249("Out of memory: Could not create SubClassA."); this_518 = 0; }; } else { Base_firstFree_663 = (Base_firstFree_663 - 1); this_518 = Base_nextFree_458[Base_firstFree_663]; Base_typeId_720[this_518] = 2; }; return this_518; } function new_SubClassB662() returns integer { local integer this273 if (Base_firstFree_663 == 0) { if (Base_maxIndex_160 < 32768) { Base_maxIndex_160 = (Base_maxIndex_160 + 1); this_273 = Base_maxIndex_160; Base_typeId_720[this_273] = 3; } else { error249("Out of memory: Could not create SubClassB."); this_273 = 0; }; } else { Base_firstFree_663 = (Base_firstFree_663 - 1); this_273 = Base_nextFree_458[Base_firstFree_663]; Base_typeId_720[this_273] = 3; }; return this_273; } function error249(string msg190) { $debugPrint195((msg_190 + (" " + #getStackTrace()))); } function dispatch_Base_test_Base_clear406(integer this178) { if (Base_typeId_720[this_178] == 0) { if (this_178 == 0) { error249("Nullpointer exception when calling Base.clear"); } else { error249("Called Base.clear on invalid object."); }; } else { }; if (Base_typeId_720[this_178] <= 2) { if (Base_typeId_720[this_178] <= 1) { if (Base_next_625[this_178] != null) { dispatch_Base_test_Base_clear406(Base_next_625[this_178]); } else { }; } else { if (Base_next_625[this_178] != null) { dispatch_Base_test_Base_clear406(Base_next_625[this_178]); } else { }; }; } else { if (Base_next_625[this_178] != null) { dispatch_Base_test_Base_clear406(Base_next_625[this_178]); } else { }; testSuccess198(); }; } function dispatch_SubClassA_test_SubClassA_clear187(integer this186) { if (Base_typeId_720[this_186] == 0) { if (this_186 == 0) { error249("Nullpointer exception when calling SubClassA.clear"); } else { error249("Called SubClassA.clear on invalid object."); }; } else { }; if (Base_next_625[this_186] != null) { dispatch_Base_test_Base_clear406(Base_next_625[this_186]); } else { }; }