From: Alastair B. <lis...@us...> - 2009-12-12 20:52:24
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv14462/src/runtime Modified Files: print.c Log Message: 1.0.33.9: LDB stability improvements. * Make sure that a struct object is actually in the lisp heap space before attempting to access its memory. * We have a perfectly good is_lisp_pointer() function, use it in print_obj(). Index: print.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/print.c,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- print.c 29 Jul 2009 15:15:31 -0000 1.34 +++ print.c 12 Dec 2009 20:52:13 -0000 1.35 @@ -244,8 +244,13 @@ static void brief_struct(lispobj obj) { - printf("#<ptr to 0x%08lx instance>", - (unsigned long) ((struct instance *)native_pointer(obj))->slots[0]); + struct instance *instance = (struct instance *)native_pointer(obj); + if (!is_valid_lisp_addr((os_vm_address_t)instance)) { + printf("(invalid address)"); + } else { + printf("#<ptr to 0x%08lx instance>", + (unsigned long) instance->slots[0]); + } } static void print_struct(lispobj obj) @@ -253,10 +258,14 @@ struct instance *instance = (struct instance *)native_pointer(obj); unsigned int i; char buffer[16]; - print_obj("type: ", ((struct instance *)native_pointer(obj))->slots[0]); - for (i = 1; i < HeaderValue(instance->header); i++) { - sprintf(buffer, "slot %d: ", i); - print_obj(buffer, instance->slots[i]); + if (!is_valid_lisp_addr((os_vm_address_t)instance)) { + printf("(invalid address)"); + } else { + print_obj("type: ", ((struct instance *)native_pointer(obj))->slots[0]); + for (i = 1; i < HeaderValue(instance->header); i++) { + sprintf(buffer, "slot %d: ", i); + print_obj(buffer, instance->slots[i]); + } } } @@ -630,11 +639,7 @@ if (var != NULL && var_clock(var) == cur_clock) dont_descend = 1; - if (var == NULL && - ((obj & LOWTAG_MASK) == FUN_POINTER_LOWTAG || - (obj & LOWTAG_MASK) == LIST_POINTER_LOWTAG || - (obj & LOWTAG_MASK) == INSTANCE_POINTER_LOWTAG || - (obj & LOWTAG_MASK) == OTHER_POINTER_LOWTAG)) + if (var == NULL && is_lisp_pointer(obj)) var = define_var(NULL, obj, 0); if (var != NULL) |