array<integer> F_nextFree193
integer F_firstFree129
integer F_maxIndex131
array<integer> F_typeId417


integer F_firstFree129 = 0
integer F_maxIndex131 = 0


function initGlobals964() { 
    F_firstFree_129 = 0;
    F_maxIndex_131 = 0;
}


function main941() { 
    initGlobals964();
    init_A204();
}


function config834() { 
}


function init_A204() { 
    local integer x132
    local integer clVar169
    clVar_169 = alloc_F_blub_A213();
    x_132 = blub429(5, clVar_169);
    if (x_132 == 6) {
        testSuccess133();
    } else {
    };
}


function blub429(integer x445, integer f129) returns integer { 
    return dispatch_F_A_F_apply161(f_129, x_445);
}


IS_NATIVE function testSuccess133() { 
}


function apply_blub_A175(integer this165, integer x906) returns integer { 
    return (x_906 + 1);
}


function alloc_F_blub_A213() returns integer { 
    local integer this153
    if (F_firstFree_129 == 0) {
        if (F_maxIndex_131 < 32768) {
            F_maxIndex_131 = (F_maxIndex_131 + 1);
            this_153 = F_maxIndex_131;
            F_typeId_417[this_153] = 2;
        } else {
            error152("Out of memory: Could not create F_blub_A.");
            this_153 = 0;
        };
    } else {
        F_firstFree_129 = (F_firstFree_129 - 1);
        this_153 = F_nextFree_193[F_firstFree_129];
        F_typeId_417[this_153] = 2;
    };
    return this_153;
}


function error152(string msg136) { 
    $debugPrint185((msg_136 + ("
" + #getStackTrace())));
}


function dispatch_F_A_F_apply161(integer this880, integer x116) returns integer { 
    local integer A_F_apply_result173
    if (F_typeId_417[this_880] == 0) {
        if (this_880 == 0) {
            error152("Nullpointer exception when calling F.apply");
        } else {
            error152("Called F.apply on invalid object.");
        };
    } else {
    };
    A_F_apply_result_173 = apply_blub_A175(this_880, x_116);
    return A_F_apply_result_173;
}