87 lines
2.4 KiB
C
87 lines
2.4 KiB
C
/* This file implements kernel debugging functionality that is not included
|
|
* in the standard kernel. Available functionality includes timing of lock
|
|
* functions and sanity checking of the scheduling queues.
|
|
*/
|
|
|
|
#include "kernel.h"
|
|
#include "proc.h"
|
|
#include "debug.h"
|
|
|
|
#include <minix/sysutil.h>
|
|
#include <limits.h>
|
|
#include <string.h>
|
|
|
|
#if DEBUG_SCHED_CHECK /* only include code if enabled */
|
|
|
|
#define MAX_LOOP (NR_PROCS + NR_TASKS)
|
|
|
|
PUBLIC void
|
|
check_runqueues_f(char *file, int line)
|
|
{
|
|
int q, l = 0;
|
|
register struct proc *xp;
|
|
#define MYPANIC(msg) { \
|
|
static char buf[100]; \
|
|
strcpy(buf, file); \
|
|
strcat(buf, ": "); \
|
|
util_nstrcat(buf, line);\
|
|
strcat(buf, ": "); \
|
|
strcat(buf, msg); \
|
|
minix_panic(buf, NO_NUM); \
|
|
}
|
|
|
|
for (xp = BEG_PROC_ADDR; xp < END_PROC_ADDR; ++xp) {
|
|
xp->p_found = 0;
|
|
if (l++ > MAX_LOOP) { MYPANIC("check error"); }
|
|
}
|
|
|
|
for (q=l=0; q < NR_SCHED_QUEUES; q++) {
|
|
if (rdy_head[q] && !rdy_tail[q]) {
|
|
kprintf("head but no tail in %d\n", q);
|
|
MYPANIC("scheduling error");
|
|
}
|
|
if (!rdy_head[q] && rdy_tail[q]) {
|
|
kprintf("tail but no head in %d\n", q);
|
|
MYPANIC("scheduling error");
|
|
}
|
|
if (rdy_tail[q] && rdy_tail[q]->p_nextready != NIL_PROC) {
|
|
kprintf("tail and tail->next not null in %d\n", q);
|
|
MYPANIC("scheduling error");
|
|
}
|
|
for(xp = rdy_head[q]; xp != NIL_PROC; xp = xp->p_nextready) {
|
|
if (!xp->p_ready) {
|
|
kprintf("scheduling error: unready on runq %d proc %d\n",
|
|
q, xp->p_nr);
|
|
MYPANIC("found unready process on run queue");
|
|
}
|
|
if (xp->p_priority != q) {
|
|
kprintf("scheduling error: wrong priority q %d proc %d\n",
|
|
q, xp->p_nr);
|
|
MYPANIC("wrong priority");
|
|
}
|
|
if (xp->p_found) {
|
|
kprintf("scheduling error: double sched q %d proc %d\n",
|
|
q, xp->p_nr);
|
|
MYPANIC("proc more than once on scheduling queue");
|
|
}
|
|
xp->p_found = 1;
|
|
if (xp->p_nextready == NIL_PROC && rdy_tail[q] != xp) {
|
|
kprintf("sched err: last element not tail q %d proc %d\n",
|
|
q, xp->p_nr);
|
|
MYPANIC("scheduling error");
|
|
}
|
|
if (l++ > MAX_LOOP) MYPANIC("loop in schedule queue?");
|
|
}
|
|
}
|
|
|
|
l = 0;
|
|
for (xp = BEG_PROC_ADDR; xp < END_PROC_ADDR; ++xp) {
|
|
if (! isemptyp(xp) && xp->p_ready && ! xp->p_found) {
|
|
kprintf("sched error: ready proc %d not on queue\n", xp->p_nr);
|
|
MYPANIC("ready proc not on scheduling queue");
|
|
if (l++ > MAX_LOOP) { MYPANIC("loop in debug.c?"); }
|
|
}
|
|
}
|
|
}
|
|
|
|
#endif /* DEBUG_SCHED_CHECK */
|