array C_nextFree105 integer C_firstFree207 integer C_maxIndex128 array C_ang_rad_0141 array C_ang_rad_1100 integer C_firstFree207 = 0 integer C_maxIndex128 = 0 function initGlobals548() { } function main201() { local integer c224 local real tuple_temp210 local real tuple_temp783 initGlobals548(); c_224 = new_C141(); tuple_temp_210 = 4.; C_ang_rad_set129(c_224, 0, tuple_temp_210); tuple_temp_783 = 2.; C_ang_rad_set129(c_224, 1, tuple_temp_783); if ((C_ang_rad_get150(c_224, 0) == 4.) and (C_ang_rad_get150(c_224, 1) == 2.)) { testSuccess195(); } else { }; } function config435() { } IS_NATIVE function testSuccess195() { } function new_C141() returns integer { local integer this117 local integer this764 if (C_firstFree_207 == 0) { if (C_maxIndex_128 < 32768) { C_maxIndex_128 = (C_maxIndex_128 + 1); this_764 = C_maxIndex_128; } else { error209("Out of memory: Could not create C."); this_764 = 0; }; } else { C_firstFree_207 = (C_firstFree_207 - 1); this_764 = C_nextFree_105[C_firstFree_207]; }; this_117 = this_764; return this_117; } function error209(string msg782) { $debugPrint117((msg_782 + (" " + #getStackTrace()))); } function C_ang_rad_set129(integer instanceId147, integer arrayIndex622, real value193) { if ((arrayIndex_622 < 0) or (arrayIndex_622 >= 2)) { error209("Index out of Bounds"); } else { if (arrayIndex_622 <= 0) { C_ang_rad_0_141[instanceId_147] = value_193; } else { C_ang_rad_1_100[instanceId_147] = value_193; }; }; } function C_ang_rad_get150(integer index1101, integer index2820) returns real { local real returnVal154 if ((index2_820 < 0) or (index2_820 >= 2)) { error209("Index out of Bounds"); } else { if (index2_820 <= 0) { returnVal_154 = C_ang_rad_0_141[index1_101]; } else { returnVal_154 = C_ang_rad_1_100[index1_101]; }; }; return returnVal_154; }