nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

Add sanity checking for light sources

Browse Source
This commit is contained in:
Pasi Kallinen
2015-10-27 18:36:07 +02:00
parent ec58bfaa22
commit 530ba8e3d3
3 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/cmd.c
View File

@@ -3069,6 +3069,7 @@ sanity_check()
obj_sanity_check();
timer_sanity_check();
mon_sanity_check();
light_sources_sanity_check();
}
#ifdef DEBUG_MIGRATING_MONS

25
src/light.c
View File

@@ -383,6 +383,31 @@ boolean write_it;
return count;
}
void
light_sources_sanity_check()
{
light_source *ls;
unsigned int auint;
for (ls = light_base; ls; ls = ls->next) {
if (!ls->id.a_monst)
panic("insane light source: no id!");
if (ls->type == LS_OBJECT) {
struct obj *otmp = (struct obj *) ls->id.a_obj;
auint = otmp->o_id;
if (find_oid(auint) != otmp)
panic("insane light source: can't find obj #%u!", auint);
} else if (ls->type == LS_MONSTER) {
struct monst *mtmp = (struct monst *) ls->id.a_monst;
auint = mtmp->m_id;
if (find_mid(auint, FM_EVERYWHERE) != mtmp)
panic("insane light source: can't find mon #%u!", auint);
} else {
panic("insane light source: bad ls type %d", ls->type);
}
}
}
/* Write a light source structure to disk. */
STATIC_OVL void
write_ls(fd, ls)