array C_nextFree705 integer C_firstFree156 integer C_maxIndex128 array C_ang_rad_0225 array C_ang_rad_1145 integer C_firstFree156 = 0 integer C_maxIndex128 = 0 function initGlobals438() { } function main198() { local integer c179 local real tuple_temp109 local real tuple_temp138 initGlobals438(); c_179 = new_C883(); tuple_temp_109 = 4.; C_ang_rad_set165(c_179, 0, tuple_temp_109); tuple_temp_138 = 2.; C_ang_rad_set165(c_179, 1, tuple_temp_138); if ((C_ang_rad_get451(c_179, 0) == 4.) and (C_ang_rad_get451(c_179, 1) == 2.)) { testSuccess190(); } else { }; } function config178() { } IS_NATIVE function testSuccess190() { } function new_C883() returns integer { local integer this166 local integer this123 if (C_firstFree_156 == 0) { if (C_maxIndex_128 < 32768) { C_maxIndex_128 = (C_maxIndex_128 + 1); this_123 = C_maxIndex_128; } else { error100("Out of memory: Could not create C."); this_123 = 0; }; } else { C_firstFree_156 = (C_firstFree_156 - 1); this_123 = C_nextFree_705[C_firstFree_156]; }; this_166 = this_123; return this_166; } function error100(string msg283) { $debugPrint484((msg_283 + (" " + #getStackTrace()))); } function C_ang_rad_set165(integer instanceId614, integer arrayIndex203, real value152) { if ((arrayIndex_203 < 0) or (arrayIndex_203 >= 2)) { error100("Index out of Bounds"); } else { if (arrayIndex_203 <= 0) { C_ang_rad_0_225[instanceId_614] = value_152; } else { C_ang_rad_1_145[instanceId_614] = value_152; }; }; } function C_ang_rad_get451(integer index1853, integer index2359) returns real { local real returnVal138 if ((index2_359 < 0) or (index2_359 >= 2)) { error100("Index out of Bounds"); } else { if (index2_359 <= 0) { returnVal_138 = C_ang_rad_0_225[index1_853]; } else { returnVal_138 = C_ang_rad_1_145[index1_853]; }; }; return returnVal_138; }