§1. Just one array will do us: 

typedef struct backdrop_found_in_notice {
    struct instance *backdrop;
    struct inter_name *found_in_routine_iname;
    int many_places;
    CLASS_DEFINITION
} backdrop_found_in_notice;

parse_node *RTBackdrops::found_in_val(instance *I, int many) {
    backdrop_found_in_notice *notice = CREATE(backdrop_found_in_notice);
    notice->backdrop = I;
    package_request *R = RTInstances::package(I);
    notice->found_in_routine_iname = Hierarchy::make_iname_in(BACKDROP_FOUND_IN_FN_HL, R);
    notice->many_places = many;
    return Rvalues::from_iname(notice->found_in_routine_iname);
}

§2. 

void RTBackdrops::write_found_in_routines(void) {
    backdrop_found_in_notice *notice;
    LOOP_OVER(notice, backdrop_found_in_notice) {
        instance *I = notice->backdrop;
        if (notice->many_places)
            The object is found in many rooms or in whole regions2.1
        else
            The object is found nowhere2.2;
    }
}

§2.1. The object is found in many rooms or in whole regions2.1 = 

    packaging_state save = Functions::begin(notice->found_in_routine_iname);
    inference *inf;
    POSITIVE_KNOWLEDGE_LOOP(inf, Instances::as_subject(I), found_in_inf) {
        instance *loc = Backdrops::get_inferred_location(inf);
        EmitCode::inv(IF_BIP);
        EmitCode::down();
        if ((K_region) && (Instances::of_kind(loc, K_region))) {
            EmitCode::call(Hierarchy::find(TESTREGIONALCONTAINMENT_HL));
            EmitCode::down();
                EmitCode::val_iname(K_object, Hierarchy::find(LOCATION_HL));
                EmitCode::val_iname(K_object, RTInstances::value_iname(loc));
            EmitCode::up();
        } else {
            EmitCode::inv(EQ_BIP);
            EmitCode::down();
                EmitCode::val_iname(K_object, Hierarchy::find(LOCATION_HL));
                EmitCode::val_iname(K_object, RTInstances::value_iname(loc));
            EmitCode::up();
        }
            EmitCode::code();
            EmitCode::down();
                EmitCode::rtrue();
            EmitCode::up();
        EmitCode::up();
        EmitCode::rfalse();
        break;
    }
    Functions::end(save);

§2.2. The object is found nowhere2.2 = 

    packaging_state save = Functions::begin(notice->found_in_routine_iname);
    EmitCode::rfalse();
    Functions::end(save);