Skip to content
Snippets Groups Projects
Commit fe8161b2 authored by ch's avatar ch
Browse files

Added code to print weak pointers.

parent e279aaae
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.10 1990/05/10 17:48:34 wlott Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.11 1990/05/13 22:49:09 ch Exp $ */
#include <stdio.h> #include <stdio.h>
#include "ldb.h" #include "ldb.h"
...@@ -59,7 +59,8 @@ char *subtype_Names[] = { ...@@ -59,7 +59,8 @@ char *subtype_Names[] = {
"symbol header", "symbol header",
"character", "character",
"SAP", "SAP",
"unbound marker" "unbound marker",
"weak pointer"
}; };
static void indent(in) static void indent(in)
...@@ -337,6 +338,7 @@ static char *complex_slots[] = {"real: ", "imag: ", NULL}; ...@@ -337,6 +338,7 @@ static char *complex_slots[] = {"real: ", "imag: ", NULL};
static char *code_slots[] = {"words: ", "entry: ", "debug: ", NULL}; static char *code_slots[] = {"words: ", "entry: ", "debug: ", NULL};
static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ", NULL}; static char *fn_slots[] = {"self: ", "next: ", "name: ", "arglist: ", "type: ", NULL};
static char *closure_slots[] = {"fn: ", NULL}; static char *closure_slots[] = {"fn: ", NULL};
static char *weak_pointer_slots[] = {"value: ", NULL};
static void print_otherptr(obj) static void print_otherptr(obj)
lispobj obj; lispobj obj;
...@@ -457,6 +459,10 @@ lispobj obj; ...@@ -457,6 +459,10 @@ lispobj obj;
printf("0x%08x", *ptr); printf("0x%08x", *ptr);
break; break;
case type_WeakPointer:
print_slots(weak_pointer_slots, 1, ptr);
break;
case type_BaseCharacter: case type_BaseCharacter:
case type_UnboundMarker: case type_UnboundMarker:
NEWLINE; NEWLINE;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment