Skip to content
Snippets Groups Projects
Commit a7a7489b authored by rtoy's avatar rtoy
Browse files

Print out more slots of a Weak pointer.

parent fc5b7453
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.18 2005/02/07 22:18:35 rtoy Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.19 2005/02/07 22:32:49 rtoy Exp $ */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
...@@ -411,7 +411,11 @@ static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ", ...@@ -411,7 +411,11 @@ static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ",
static char *closure_slots[] = {"fn: ", NULL}; static char *closure_slots[] = {"fn: ", NULL};
static char *funcallable_instance_slots[] = {"fn: ", "lexenv: ", "layout: ", NULL}; static char *funcallable_instance_slots[] = {"fn: ", "lexenv: ", "layout: ", NULL};
static char *weak_pointer_slots[] = {"value: ", NULL}; static char *weak_pointer_slots[] = {"value: ", "broken: ",
#ifdef GENCGC
"mark-bit: ",
#endif
NULL};
static char *fdefn_slots[] = {"name: ", "function: ", "raw_addr: ", NULL}; static char *fdefn_slots[] = {"name: ", "function: ", "raw_addr: ", NULL};
static char *value_cell_slots[] = {"value: ", NULL}; static char *value_cell_slots[] = {"value: ", NULL};
#ifdef type_ScavengerHook #ifdef type_ScavengerHook
...@@ -628,7 +632,7 @@ static void print_otherptr(lispobj obj) ...@@ -628,7 +632,7 @@ static void print_otherptr(lispobj obj)
break; break;
case type_WeakPointer: case type_WeakPointer:
print_slots(weak_pointer_slots, 1, ptr); print_slots(weak_pointer_slots, 3, ptr);
break; break;
case type_BaseChar: case type_BaseChar:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment