§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);
        Produce::inv_primitive(Emit::tree(), IF_BIP);
        Emit::down();
        if ((K_region) && (Instances::of_kind(loc, K_region))) {
            Produce::inv_call_iname(Emit::tree(),
                Hierarchy::find(TESTREGIONALCONTAINMENT_HL));
            Emit::down();
                Produce::val_iname(Emit::tree(), K_object, Hierarchy::find(LOCATION_HL));
                Produce::val_iname(Emit::tree(), K_object, RTInstances::iname(loc));
            Emit::up();
        } else {
            Produce::inv_primitive(Emit::tree(), EQ_BIP);
            Emit::down();
                Produce::val_iname(Emit::tree(), K_object, Hierarchy::find(LOCATION_HL));
                Produce::val_iname(Emit::tree(), K_object, RTInstances::iname(loc));
            Emit::up();
        }
            Produce::code(Emit::tree());
            Emit::down();
                Produce::rtrue(Emit::tree());
            Emit::up();
        Emit::up();
        Produce::rfalse(Emit::tree());
        break;
    }
    Functions::end(save);

§2.2. The object is found nowhere2.2 = 

    packaging_state save = Functions::begin(notice->found_in_routine_iname);
    Produce::rfalse(Emit::tree());
    Functions::end(save);