Skip to content
Snippets Groups Projects
monitor.c 12.2 KiB
Newer Older
rtoy's avatar
rtoy committed
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.17 2004/07/08 17:49:04 rtoy Exp $ */
wlott's avatar
wlott committed

#include <stdio.h>
#include <sys/types.h>
#include <stdlib.h>
#include <setjmp.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <signal.h>
rtoy's avatar
rtoy committed
#include <string.h>
wlott's avatar
wlott committed

#include "lisp.h"
#include "internals.h"
#include "globals.h"
#include "vars.h"
#include "parse.h"
ram's avatar
ram committed
#include "os.h"
wlott's avatar
wlott committed
#include "interrupt.h"
#include "lispregs.h"
#include "monitor.h"
#include "print.h"
#include "arch.h"
#include "gc.h"
#include "search.h"
#include "purify.h"
dtc's avatar
dtc committed
#if defined GENCGC
#include "gencgc.h"
#endif
wlott's avatar
wlott committed

extern boolean isatty(int fd);

typedef void cmd(char **ptr);

static cmd call_cmd, dump_cmd, print_cmd, quit, help;
static cmd flush_cmd, search_cmd, regs_cmd, exit_cmd;
static cmd gc_cmd, print_context_cmd;
static cmd backtrace_cmd, purify_cmd, catchers_cmd;
wlott's avatar
wlott committed
static cmd grab_sigs_cmd;

static struct cmd {
    char *cmd, *help;
    void (*fn)(char **ptr);
} Cmds[] = {
    {"help", "Display this info", help},
    {"?", NULL, help},
    {"backtrace", "backtrace up to N frames", backtrace_cmd},
    {"call", "call FUNCTION with ARG1, ARG2, ...", call_cmd},
    {"catchers", "Print a list of all the active catchers.", catchers_cmd},
    {"context", "print interrupt context number I.", print_context_cmd},
    {"dump", "dump memory starting at ADDRESS for COUNT words.", dump_cmd},
    {"d", NULL, dump_cmd},
    {"exit", "Exit this instance of the monitor.", exit_cmd},
    {"flush", "flush all temp variables.", flush_cmd},
    {"gc", "collect garbage (caveat collector).", gc_cmd},
    {"grab-signals", "Set the signal handlers to call LDB.", grab_sigs_cmd},
    {"purify", "purify (caveat purifier).", purify_cmd},
    {"print", "print object at ADDRESS.", print_cmd},
    {"p", NULL, print_cmd},
    {"quit", "quit.", quit},
    {"regs", "display current lisp regs.", regs_cmd},
    {"search", "search for TYPE starting at ADDRESS for a max of COUNT words.", search_cmd},
    {"s", NULL, search_cmd},
    {NULL, NULL, NULL}
};


static jmp_buf curbuf;


static int visable(unsigned char c)
{
    if (c < ' ' || c > '~')
        return ' ';
    else
        return c;
}

static void dump_cmd(char **ptr)
{
    static char *lastaddr = 0;
    static int lastcount = 20;

    char *addr = lastaddr;
    int count = lastcount, displacement;

    if (more_p(ptr)) {
        addr = parse_addr(ptr);

        if (more_p(ptr))
            count = parse_number(ptr);
    }

    if (count == 0) {
        printf("COUNT must be non-zero.\n");
        return;
    }
        
    lastcount = count;

    if (count > 0)
        displacement = 4;
    else {
        displacement = -4;
        count = -count;
    }

    while (count-- > 0) {
hallgren's avatar
hallgren committed
#ifndef alpha
ram's avatar
ram committed
        printf("0x%08lX: ", (unsigned long) addr);
hallgren's avatar
hallgren committed
#else
        printf("0x%08X: ", (u32) addr);
#endif
wlott's avatar
wlott committed
        if (valid_addr((os_vm_address_t)addr)) {
hallgren's avatar
hallgren committed
#ifndef alpha
wlott's avatar
wlott committed
            unsigned long *lptr = (unsigned long *)addr;
hallgren's avatar
hallgren committed
#else
            u32 *lptr = (unsigned long *)addr;
#endif
wlott's avatar
wlott committed
            unsigned short *sptr = (unsigned short *)addr;
            unsigned char *cptr = (unsigned char *)addr;

ram's avatar
ram committed
            printf("0x%08lx   0x%04x 0x%04x   0x%02x 0x%02x 0x%02x 0x%02x    %c%c%c%c\n", lptr[0], sptr[0], sptr[1], cptr[0], cptr[1], cptr[2], cptr[3], visable(cptr[0]), visable(cptr[1]), visable(cptr[2]), visable(cptr[3]));
wlott's avatar
wlott committed
        }
        else
            printf("invalid address\n");

        addr += displacement;
    }

    lastaddr = addr;
}

static void print_cmd(char **ptr)
{
    lispobj obj = parse_lispobj(ptr);
    
    print(obj);
}

static void regs_cmd(char **ptr)
{
ram's avatar
ram committed
    printf("CSP\t=\t0x%08lX\n", (unsigned long)current_control_stack_pointer);
    printf("FP\t=\t0x%08lX\n", (unsigned long)current_control_frame_pointer);
cwang's avatar
cwang committed
#if !defined(ibmrt) && !defined(i386) && !defined(__x86_64)
rtoy's avatar
rtoy committed
    printf("BSP\t=\t0x%08lX\n", (unsigned long)current_binding_stack_pointer);
wlott's avatar
wlott committed
#endif
cwang's avatar
cwang committed
#if defined(i386) || defined(__x86_64)
    printf("BSP\t=\t0x%08lX\n", SymbolValue(BINDING_STACK_POINTER));
ram's avatar
ram committed
#endif
wlott's avatar
wlott committed

ram's avatar
ram committed
    printf("DYNAMIC\t=\t0x%08lX\n", (unsigned long)current_dynamic_space);
cwang's avatar
cwang committed
#if defined(ibmrt) || defined(i386) || defined(__x86_64)
ram's avatar
ram committed
    printf("ALLOC\t=\t0x%08lX\n", SymbolValue(ALLOCATION_POINTER));
    printf("TRIGGER\t=\t0x%08lX\n", SymbolValue(INTERNAL_GC_TRIGGER));
wlott's avatar
wlott committed
#else
rtoy's avatar
rtoy committed
    printf("ALLOC\t=\t0x%08lX\n", (unsigned long) current_dynamic_space_free_pointer);
    printf("TRIGGER\t=\t0x%08lX\n", (unsigned long)current_auto_gc_trigger);
wlott's avatar
wlott committed
#endif
ram's avatar
ram committed
    printf("STATIC\t=\t0x%08lX\n", SymbolValue(STATIC_SPACE_FREE_POINTER));
    printf("RDONLY\t=\t0x%08lX\n", SymbolValue(READ_ONLY_SPACE_FREE_POINTER));
wlott's avatar
wlott committed

#ifdef MIPS
    printf("FLAGS\t=\t0x%08x\n", current_flags_register);
#endif
}

static void search_cmd(char **ptr)
{
    static int lastval = 0, lastcount = 0;
    static lispobj *start = 0, *end = 0;
    int val, count;
    lispobj *addr, obj;

    if (more_p(ptr)) {
        val = parse_number(ptr);
        if (val < 0 || val > 0xff) {
            printf("Can only search for single bytes.\n");
            return;
        }
        if (more_p(ptr)) {
            addr = (lispobj *)PTR((long)parse_addr(ptr));
            if (more_p(ptr)) {
                count = parse_number(ptr);
            }
            else {
                /* Speced value and address, but no count. Only one. */
                count = -1;
            }
        }
        else {
            /* Speced a value, but no address, so search same range. */
            addr = start;
            count = lastcount;
        }
    }
    else {
        /* Speced nothing, search again for val. */
        val = lastval;
        addr = end;
        count = lastcount;
    }

    lastval = val;
    start = end = addr;
    lastcount = count;

ram's avatar
ram committed
    printf("searching for 0x%x at 0x%08lX\n", val, (unsigned long)end);
wlott's avatar
wlott committed

    while (search_for_type(val, &end, &count)) {
ram's avatar
ram committed
        printf("found 0x%x at 0x%08lX:\n", val, (unsigned long)end);
wlott's avatar
wlott committed
        obj = *end;
        addr = end;
        end += 2;
        if (TypeOf(obj) == type_FunctionHeader)
            print((long)addr | type_FunctionPointer);
        else if (LowtagOf(obj) == type_OtherImmediate0 || LowtagOf(obj) == type_OtherImmediate1)
            print((lispobj)addr | type_OtherPointer);
        else
            print((lispobj)addr);
        if (count == -1)
            return;
    }
}

static void call_cmd(char **ptr)
{
    lispobj thing = parse_lispobj(ptr), function, result, cons, args[3];
    int numargs;

    if (LowtagOf(thing) == type_OtherPointer) {
	switch (TypeOf(*(lispobj *)(thing-type_OtherPointer))) {
	  case type_SymbolHeader:
	    for (cons = SymbolValue(INITIAL_FDEFN_OBJECTS);
		 cons != NIL;
		 cons = CONS(cons)->cdr) {
		if (FDEFN(CONS(cons)->car)->name == thing) {
		    thing = CONS(cons)->car;
		    goto fdefn;
		}
	    }
ram's avatar
ram committed
	    printf("symbol 0x%08lx is undefined.\n", thing);
wlott's avatar
wlott committed
	    return;

	  case type_Fdefn:
	  fdefn:
	    function = FDEFN(thing)->function;
	    if (function == NIL) {
ram's avatar
ram committed
		printf("fdefn 0x%08lx is undefined.\n", thing);
wlott's avatar
wlott committed
		return;
	    }
	    break;
	  default:
	    printf(
ram's avatar
ram committed
	      "0x%08lx is not a function pointer, symbol, or fdefn object.\n",
wlott's avatar
wlott committed
		   thing);
	    return;
	}
    }
    else if (LowtagOf(thing) != type_FunctionPointer) {
ram's avatar
ram committed
        printf("0x%08lx is not a function pointer, symbol, or fdefn object.\n",
wlott's avatar
wlott committed
	       thing);
        return;
    }
wlott's avatar
wlott committed

    numargs = 0;
    while (more_p(ptr)) {
	if (numargs >= 3) {
	    printf("Too many arguments.  3 at most.\n");
	    return;
	}
	args[numargs++] = parse_lispobj(ptr);
    }

    switch (numargs) {
      case 0:
	result = funcall0(function);
	break;
      case 1:
	result = funcall1(function, args[0]);
	break;
      case 2:
	result = funcall2(function, args[0], args[1]);
	break;
      case 3:
	result = funcall3(function, args[0], args[1], args[2]);
	break;
    }

    print(result);
}

static void flush_cmd(char **ptr)
{
    flush_vars();
}

static void quit(char **ptr)
{
    char buf[10];

    printf("Really quit? [y] ");
    fflush(stdout);
    fgets(buf, sizeof(buf), stdin);
    if (buf[0] == 'y' || buf[0] == 'Y' || buf[0] == '\n')
        exit(0);
}

static void help(char **ptr)
{
    struct cmd *cmd;

    for (cmd = Cmds; cmd->cmd != NULL; cmd++)
        if (cmd->help != NULL)
            printf("%s\t%s\n", cmd->cmd, cmd->help);
}

static int done;

static void exit_cmd(char **ptr)
{
    done = TRUE;
}

static void gc_cmd(char **ptr)
{
    collect_garbage();
}

static void purify_cmd(char **ptr)
{
    purify(NIL, NIL);
}

static void print_context(os_context_t *context)
wlott's avatar
wlott committed
{
	int i;

	for (i = 0; i < NREGS; i++) {
		printf("%s:\t", lisp_register_names[i]);
cwang's avatar
cwang committed
#if defined(i386) || defined(__x86_64)
		brief_print((lispobj) SC_REG(context, i*2));
#else
wlott's avatar
wlott committed
		brief_print((lispobj) SC_REG(context, i));
wlott's avatar
wlott committed
	}
rtoy's avatar
rtoy committed
	printf("PC:\t\t  0x%08lx\n", (unsigned long) SC_PC(context));
wlott's avatar
wlott committed
}

static void print_context_cmd(char **ptr)
{
	int free;

	free = SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX)>>2;
	
        if (more_p(ptr)) {
		int index;

		index = parse_number(ptr);

		if ((index >= 0) && (index < free)) {
			printf("There are %d interrupt contexts.\n", free);
			printf("Printing context %d\n", index);
			print_context(lisp_interrupt_contexts[index]);
		} else {
			printf("There aren't that many/few contexts.\n");
			printf("There are %d interrupt contexts.\n", free);
		}
	} else {
		if (free == 0)
			printf("There are no interrupt contexts!\n");
		else {
			printf("There are %d interrupt contexts.\n", free);
			printf("Printing context %d\n", free - 1);
			print_context(lisp_interrupt_contexts[free - 1]);
		}
	}
}

static void backtrace_cmd(char **ptr)
{
    void backtrace(int frames);
    int n;

    if (more_p(ptr))
	n = parse_number(ptr);
    else
	n = 100;

    printf("Backtrace:\n");
    backtrace(n);
}

static void catchers_cmd(char **ptr)
{
    struct catch_block *catch;

    catch = (struct catch_block *)SymbolValue(CURRENT_CATCH_BLOCK);

    if (catch == NULL)
        printf("There are no active catchers!\n");
    else {
        while (catch != NULL) {
cwang's avatar
cwang committed
#if !(defined(i386) || defined(__x86_64))
            printf("0x%08lX:\n\tuwp: 0x%08lX\n\tfp: 0x%08lX\n\tcode: 0x%08lx\n\tentry: 0x%08lx\n\ttag: ",
		   (unsigned long)catch, (unsigned long)(catch->current_uwp),
		   (unsigned long)(catch->current_cont),
		   catch->current_code,
		   catch->entry_pc);
#else
            printf("0x%08lX:\n\tuwp: 0x%08lX\n\tfp: 0x%08lX\n\tcode: 0x%p\n\tentry: 0x%08lx\n\ttag: ",
		   (unsigned long)catch, (unsigned long)(catch->current_uwp),
		   (unsigned long)(catch->current_cont),
toy's avatar
toy committed
		   component_ptr_from_pc((lispobj *)catch->entry_pc) + type_OtherPointer,
wlott's avatar
wlott committed
            brief_print((lispobj)catch->tag);
dtc's avatar
dtc committed
            catch = catch->previous_catch;
wlott's avatar
wlott committed
        }
    }
}

static void grab_sigs_cmd(char **ptr)
{
    extern void sigint_init(void);

    printf("Grabbing signals.\n");
    sigint_init();
}

static void sub_monitor(void)
{
    struct cmd *cmd, *found;
    char buf[256];
    char *line, *ptr, *token;
    int ambig;

    while (!done) {
        printf("ldb> ");
        fflush(stdout);
        line = fgets(buf, sizeof(buf), stdin);
wlott's avatar
wlott committed
        if (line == NULL) {
	    if (isatty(0)) {
		putchar('\n');
	        continue;
	    }
	    else {
		fprintf(stderr, "\nEOF on something other than a tty.\n");
		exit(0);
	    }
	}
        ptr = line;
        if ((token = parse_token(&ptr)) == NULL)
            continue;
        ambig = 0;
        found = NULL;
        for (cmd = Cmds; cmd->cmd != NULL; cmd++) {
            if (strcmp(token, cmd->cmd) == 0) {
                found = cmd;
                ambig = 0;
                break;
            }
            else if (strncmp(token, cmd->cmd, strlen(token)) == 0) {
                if (found)
                    ambig = 1;
                else
                    found = cmd;
            }
        }
        if (ambig)
            printf("``%s'' is ambiguous.\n", token);
        else if (found == NULL)
            printf("unknown command: ``%s''\n", token);
        else {
            reset_printer();
            (*found->fn)(&ptr);
        }
    }
}

void ldb_monitor()
{
    jmp_buf oldbuf;

    bcopy(curbuf, oldbuf, sizeof(oldbuf));

    printf("LDB monitor\n");

    setjmp(curbuf);

    sub_monitor();

    done = FALSE;

    bcopy(oldbuf, curbuf, sizeof(curbuf));
}

void throw_to_monitor()
{
    longjmp(curbuf, 1);
}