Function timer_sanity_check

src/timeout.c:2129–2215

}

void
timer_sanity_check(void)
{
    timer_element *curr;
    unsigned long t_id;
    coordxy x, y;

    for (curr = gt.timer_base; curr; curr = curr->next) {
        t_id = curr->tid;
        switch (curr->kind) {
        case TIMER_OBJECT: {
            /* TODO? verify that the timer type is attached to applicable
               object (egg for hatch, glob for shrink, and so forth) */
            struct obj *obj = curr->arg.a_obj, *top;
            char *obj_adr = fmt_ptr((genericptr_t) obj);
            int owhere = obj->where;

            if (obj->timed == 0) {
                impossible("timer sanity: untimed obj %s, timer %lu",
                           obj_adr, t_id);
            }
            x = y = 0;
            /* if obj is in a container, possibly a nested one, figure out
               where the outermost container is */
            for (top = obj; top; top = top->ocontainer)
                if ((owhere = top->where) != OBJ_CONTAINED)
                    break;
            assert(top != NULL);
            if (owhere == OBJ_MIGRATING
                || (owhere == OBJ_MINVENT && !mon_is_local(top->ocarry))) {
                /* migrating directly or carried by migrating monster */
                ; /* not able to validate location so skip checks */
            } else if (!get_obj_location(obj, &x, &y,
                                         CONTAINED_TOO | BURIED_TOO)) {
                /* free? or on a shop's used-up bill? */
                impossible(
                    "timer sanity: can't locate obj %s [where=%d], timer %lu",
                           obj_adr, obj->where, t_id);
            } else if (!isok(x, y)) {
                impossible(
              "timer sanity: obj %s [where=%d] located at <%d,%d>, timer %lu",
                           obj_adr, obj->where, x, y, t_id);
            }
            break;
        }
        case TIMER_MONSTER:
            impossible("timer sanity: unexpected monster timer %lu", t_id);
            break;
        case TIMER_LEVEL: {
            long lwhere = curr->arg.a_long;

            x = (coordxy) ((lwhere >> 16) & 0xFFFF);
            y = (coordxy) (lwhere & 0xFFFF);
            if (isok(x, y)) {
                /* replicate isok() in order to convince static analysis
                   that the decoding via '& 0xFFFF' hasn't produced a value
                   too big for levl[][] and that the cast to a narrower type
                   hasn't intruded on the sign bit to yield a negative value;