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

Print out slots in a complex array header, including dimensions.

parent e56b2aee
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.16 2004/08/06 21:53:37 cwang Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.17 2005/02/07 22:10:07 rtoy Exp $ */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
...@@ -386,6 +386,22 @@ static char *symbol_slots[] = {"value: ", "unused: ", ...@@ -386,6 +386,22 @@ static char *symbol_slots[] = {"value: ", "unused: ",
static char *ratio_slots[] = {"numer: ", "denom: ", NULL}; static char *ratio_slots[] = {"numer: ", "denom: ", NULL};
static char *complex_slots[] = {"real: ", "imag: ", NULL}; 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 *array_slots[] = {"fill-pointer: ",
"fill-pointer-p: ",
"elements: ",
"data: ",
"displacement: ",
"displaced-p: ",
/* Some reasonable number of dimensions */
"dimension 1: ",
"dimension 2: ",
"dimension 3: ",
"dimension 4: ",
"dimension 5: ",
"dimension 6: ",
"dimension 7: ",
NULL};
#if (defined(i386) || defined(__x86_64)) #if (defined(i386) || defined(__x86_64))
static char *fn_slots[] = {"inst start: ", "next: ", "name: ", "arglist: ", "type: ", NULL}; static char *fn_slots[] = {"inst start: ", "next: ", "name: ", "arglist: ", "type: ", NULL};
...@@ -574,6 +590,7 @@ static void print_otherptr(lispobj obj) ...@@ -574,6 +590,7 @@ static void print_otherptr(lispobj obj)
case type_ComplexBitVector: case type_ComplexBitVector:
case type_ComplexVector: case type_ComplexVector:
case type_ComplexArray: case type_ComplexArray:
print_slots(array_slots, count, ptr);
break; break;
case type_CodeHeader: case type_CodeHeader:
......
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