array C_nextFree190 integer C_firstFree206 integer C_maxIndex153 array C_ang_rad_0213 array C_ang_rad_1600 integer C_firstFree206 = 0 integer C_maxIndex153 = 0 function initGlobals167() { } function main206() { local integer c961 initGlobals167(); c_961 = new_C106(); C_ang_rad_set824(c_961, 0, 4.); C_ang_rad_set824(c_961, 1, 2.); if ((C_ang_rad_get344(c_961, 0) == 4.) and (C_ang_rad_get344(c_961, 1) == 2.)) { testSuccess195(); } else { }; } function config181() { } IS_NATIVE function testSuccess195() { } function new_C106() returns integer { local integer this790 if (C_firstFree_206 == 0) { if (C_maxIndex_153 < 32768) { C_maxIndex_153 = (C_maxIndex_153 + 1); this_790 = C_maxIndex_153; } else { error187("Out of memory: Could not create C."); this_790 = 0; }; } else { C_firstFree_206 = (C_firstFree_206 - 1); this_790 = C_nextFree_190[C_firstFree_206]; }; return this_790; } function error187(string msg120) { $debugPrint102((msg_120 + (" " + #getStackTrace()))); } function C_ang_rad_set824(integer instanceId198, integer arrayIndex173, real value150) { if ((arrayIndex_173 < 0) or (arrayIndex_173 >= 2)) { error187("Index out of Bounds"); } else { if (arrayIndex_173 <= 0) { C_ang_rad_0_213[instanceId_198] = value_150; } else { C_ang_rad_1_600[instanceId_198] = value_150; }; }; } function C_ang_rad_get344(integer index1647, integer index2129) returns real { local real returnVal204 if ((index2_129 < 0) or (index2_129 >= 2)) { error187("Index out of Bounds"); } else { if (index2_129 <= 0) { returnVal_204 = C_ang_rad_0_213[index1_647]; } else { returnVal_204 = C_ang_rad_1_600[index1_647]; }; }; return returnVal_204; }