array Pair_nextFree120 integer Pair_firstFree757 integer Pair_maxIndex166 array Pair_a151 integer Pair_firstFree757 = 0 integer Pair_maxIndex166 = 0 function initGlobals203() { Pair_firstFree_757 = 0; Pair_maxIndex_166 = 0; } function main135() { initGlobals203(); init_test180(); } function config148() { } function init_test180() { local integer p223 p_223 = new_Pair514(); Pair_a_151[p_223] = 4; if (Pair_a_151[p_223] == 4) { testSuccess205(); } else { testFail164("Array Test 1 failed."); }; } IS_NATIVE function testSuccess205() { } IS_NATIVE function testFail164(string msg730) { } function Pair_init957(integer this485) { } function new_Pair514() returns integer { local integer this126 this_126 = alloc_Pair162(); construct_Pair134(this_126); return this_126; } function construct_Pair134(integer this435) { Pair_init957(this_435); } function alloc_Pair162() returns integer { local integer this896 if (Pair_firstFree_757 == 0) { if (Pair_maxIndex_166 < 32768) { Pair_maxIndex_166 = (Pair_maxIndex_166 + 1); this_896 = Pair_maxIndex_166; } else { error109("Out of memory: Could not create Pair."); this_896 = 0; }; } else { Pair_firstFree_757 = (Pair_firstFree_757 - 1); this_896 = Pair_nextFree_120[Pair_firstFree_757]; }; return this_896; } function error109(string msg849) { $debugPrint180((msg_849 + (" " + #getStackTrace()))); }