diff options
Diffstat (limited to 'gs/psi/idebug.c')
| -rw-r--r-- | gs/psi/idebug.c | 312 |
1 files changed, 156 insertions, 156 deletions
diff --git a/gs/psi/idebug.c b/gs/psi/idebug.c index 749948904..3d0fba481 100644 --- a/gs/psi/idebug.c +++ b/gs/psi/idebug.c @@ -1,6 +1,6 @@ /* Copyright (C) 2001-2006 Artifex Software, Inc. All Rights Reserved. - + This software is provided AS-IS with no warranty, either express or implied. @@ -63,88 +63,88 @@ debug_print_full_ref(const gs_memory_t *mem, const ref * pref) dprintf1("(%x)", r_type_attrs(pref)); switch (r_type(pref)) { - case t_array: - dprintf2("array(%u)0x%lx", size, (ulong) pref->value.refs); - break; - case t_astruct: - goto strct; - case t_boolean: - dprintf1("boolean %x", pref->value.boolval); - break; - case t_device: - dprintf1("device 0x%lx", (ulong) pref->value.pdevice); - break; - case t_dictionary: - dprintf3("dict(%u/%u)0x%lx", - dict_length(pref), dict_maxlength(pref), - (ulong) pref->value.pdict); - break; - case t_file: - dprintf1("file 0x%lx", (ulong) pref->value.pfile); - break; - case t_fontID: - goto strct; - case t_integer: - dprintf1("int %d", pref->value.intval); - break; - case t_mark: - dprintf("mark"); - break; - case t_mixedarray: - dprintf2("mixed packedarray(%u)0x%lx", size, - (ulong) pref->value.packed); - break; - case t_name: - dprintf2("name(0x%lx#%u)", (ulong) pref->value.pname, - name_index(mem, pref)); - debug_print_name(mem, pref); - break; - case t_null: - dprintf("null"); - break; - case t_oparray: - dprintf2("op_array(%u)0x%lx:", size, (ulong) pref->value.const_refs); - { - const op_array_table *opt = get_op_array(mem, size); + case t_array: + dprintf2("array(%u)0x%lx", size, (ulong) pref->value.refs); + break; + case t_astruct: + goto strct; + case t_boolean: + dprintf1("boolean %x", pref->value.boolval); + break; + case t_device: + dprintf1("device 0x%lx", (ulong) pref->value.pdevice); + break; + case t_dictionary: + dprintf3("dict(%u/%u)0x%lx", + dict_length(pref), dict_maxlength(pref), + (ulong) pref->value.pdict); + break; + case t_file: + dprintf1("file 0x%lx", (ulong) pref->value.pfile); + break; + case t_fontID: + goto strct; + case t_integer: + dprintf1("int %d", pref->value.intval); + break; + case t_mark: + dprintf("mark"); + break; + case t_mixedarray: + dprintf2("mixed packedarray(%u)0x%lx", size, + (ulong) pref->value.packed); + break; + case t_name: + dprintf2("name(0x%lx#%u)", (ulong) pref->value.pname, + name_index(mem, pref)); + debug_print_name(mem, pref); + break; + case t_null: + dprintf("null"); + break; + case t_oparray: + dprintf2("op_array(%u)0x%lx:", size, (ulong) pref->value.const_refs); + { + const op_array_table *opt = get_op_array(mem, size); - name_index_ref(mem, opt->nx_table[size - opt->base_index], &nref); - } - debug_print_name(mem, &nref); - break; - case t_operator: - dprintf1("op(%u", size); - if (size > 0 && size < op_def_count) /* just in case */ - dprintf1(":%s", (const char *)(op_index_def(size)->oname + 1)); - dprintf1(")0x%lx", (ulong) pref->value.opproc); - break; - case t_real: - dprintf1("real %f", pref->value.realval); - break; - case t_save: - dprintf1("save %lu", pref->value.saveid); - break; - case t_shortarray: - dprintf2("short packedarray(%u)0x%lx", size, - (ulong) pref->value.packed); - break; - case t_string: - dprintf2("string(%u)0x%lx", size, (ulong) pref->value.bytes); - break; - case t_struct: - strct:{ - obj_header_t *obj = (obj_header_t *) pref->value.pstruct; - /* HACK: We know this object was allocated with gsalloc.c. */ - gs_memory_type_ptr_t otype = - gs_ref_memory_procs.object_type(NULL, obj); + name_index_ref(mem, opt->nx_table[size - opt->base_index], &nref); + } + debug_print_name(mem, &nref); + break; + case t_operator: + dprintf1("op(%u", size); + if (size > 0 && size < op_def_count) /* just in case */ + dprintf1(":%s", (const char *)(op_index_def(size)->oname + 1)); + dprintf1(")0x%lx", (ulong) pref->value.opproc); + break; + case t_real: + dprintf1("real %f", pref->value.realval); + break; + case t_save: + dprintf1("save %lu", pref->value.saveid); + break; + case t_shortarray: + dprintf2("short packedarray(%u)0x%lx", size, + (ulong) pref->value.packed); + break; + case t_string: + dprintf2("string(%u)0x%lx", size, (ulong) pref->value.bytes); + break; + case t_struct: + strct:{ + obj_header_t *obj = (obj_header_t *) pref->value.pstruct; + /* HACK: We know this object was allocated with gsalloc.c. */ + gs_memory_type_ptr_t otype = + gs_ref_memory_procs.object_type(NULL, obj); - dprintf2("struct %s 0x%lx", - (r_is_foreign(pref) ? "-foreign-" : - gs_struct_type_name_string(otype)), - (ulong) obj); - } - break; - default: - dprintf1("type 0x%x", r_type(pref)); + dprintf2("struct %s 0x%lx", + (r_is_foreign(pref) ? "-foreign-" : + gs_struct_type_name_string(otype)), + (ulong) obj); + } + break; + default: + dprintf1("type 0x%x", r_type(pref)); } } static void @@ -154,34 +154,34 @@ debug_print_packed_ref(const gs_memory_t *mem, const ref_packed *pref) ref nref; switch (*pref >> r_packed_type_shift) { - case pt_executable_operator: - dprintf("<op_name>"); - op_index_ref(mem, elt, &nref); - debug_print_ref(mem, &nref); - break; - case pt_integer: - dprintf1("<int> %d", (int)elt + packed_min_intval); - break; - case pt_literal_name: - dprintf("<lit_name>"); - goto ptn; - case pt_executable_name: - dprintf("<exec_name>"); + case pt_executable_operator: + dprintf("<op_name>"); + op_index_ref(mem, elt, &nref); + debug_print_ref(mem, &nref); + break; + case pt_integer: + dprintf1("<int> %d", (int)elt + packed_min_intval); + break; + case pt_literal_name: + dprintf("<lit_name>"); + goto ptn; + case pt_executable_name: + dprintf("<exec_name>"); ptn: name_index_ref(mem, elt, &nref); - dprintf2("(0x%lx#%u)", (ulong) nref.value.pname, elt); - debug_print_name(mem, &nref); - break; - default: - dprintf2("<packed_%d?>0x%x", *pref >> r_packed_type_shift, elt); + dprintf2("(0x%lx#%u)", (ulong) nref.value.pname, elt); + debug_print_name(mem, &nref); + break; + default: + dprintf2("<packed_%d?>0x%x", *pref >> r_packed_type_shift, elt); } } void debug_print_ref_packed(const gs_memory_t *mem, const ref_packed *rpp) { if (r_is_packed(rpp)) - debug_print_packed_ref(mem, rpp); + debug_print_packed_ref(mem, rpp); else - debug_print_full_ref(mem, (const ref *)rpp); + debug_print_full_ref(mem, (const ref *)rpp); dflush(); } void @@ -198,20 +198,20 @@ debug_dump_one_ref(const gs_memory_t *mem, const ref * p) uint attrs = r_type_attrs(p); uint type = r_type(p); static const ref_attr_print_mask_t apm[] = { - REF_ATTR_PRINT_MASKS, - {0, 0, 0} + REF_ATTR_PRINT_MASKS, + {0, 0, 0} }; const ref_attr_print_mask_t *ap = apm; if (type >= tx_next_index) - dprintf1("0x%02x?? ", type); + dprintf1("0x%02x?? ", type); else if (type >= t_next_index) - dprintf("opr* "); + dprintf("opr* "); else - dprintf1("%s ", type_strings[type]); + dprintf1("%s ", type_strings[type]); for (; ap->mask; ++ap) - if ((attrs & ap->mask) == ap->value) - dputc(ap->print); + if ((attrs & ap->mask) == ap->value) + dputc(ap->print); dprintf2(" 0x%04x 0x%08lx", r_size(p), *(const ulong *)&p->value); print_ref_data(mem, p); dflush(); @@ -225,49 +225,49 @@ print_ref_data(const gs_memory_t *mem, const ref *p) uint plen; if (obj_cvs(mem, p, buf, countof(buf) - 1, &plen, &pchars) >= 0 && - pchars == buf && - ((buf[plen] = 0), strcmp((char *)buf, "--nostringval--")) - ) - dprintf1(" = %s", (char *)buf); + pchars == buf && + ((buf[plen] = 0), strcmp((char *)buf, "--nostringval--")) + ) + dprintf1(" = %s", (char *)buf); #undef BUF_SIZE } /* Dump a region of memory containing refs. */ void -debug_dump_refs(const gs_memory_t *mem, const ref * from, - uint size, const char *msg) +debug_dump_refs(const gs_memory_t *mem, const ref * from, + uint size, const char *msg) { const ref *p = from; uint count = size; if (size && msg) - dprintf2("%s at 0x%lx:\n", msg, (ulong) from); + dprintf2("%s at 0x%lx:\n", msg, (ulong) from); while (count--) { - dprintf2("0x%lx: 0x%04x ", (ulong)p, r_type_attrs(p)); - debug_dump_one_ref(mem, p); - dputc('\n'); - p++; + dprintf2("0x%lx: 0x%04x ", (ulong)p, r_type_attrs(p)); + debug_dump_one_ref(mem, p); + dputc('\n'); + p++; } } /* Dump a stack. */ void -debug_dump_stack(const gs_memory_t *mem, - const ref_stack_t * pstack, const char *msg) +debug_dump_stack(const gs_memory_t *mem, + const ref_stack_t * pstack, const char *msg) { uint i; const char *m = msg; for (i = ref_stack_count(pstack); i != 0;) { - const ref *p = ref_stack_index(pstack, --i); + const ref *p = ref_stack_index(pstack, --i); - if (m) { - dprintf2("%s at 0x%lx:\n", m, (ulong) pstack); - m = NULL; - } - dprintf2("0x%lx: 0x%02x ", (ulong)p, r_type(p)); - debug_dump_one_ref(mem, p); - dputc('\n'); + if (m) { + dprintf2("%s at 0x%lx:\n", m, (ulong) pstack); + m = NULL; + } + dprintf2("0x%lx: 0x%02x ", (ulong)p, r_type(p)); + debug_dump_one_ref(mem, p); + dputc('\n'); } } @@ -280,37 +280,37 @@ debug_dump_array(const gs_memory_t *mem, const ref * array) uint len; switch (type) { - default: - dprintf2("%s at 0x%lx isn't an array.\n", - (type < countof(type_strings) ? - type_strings[type] : "????"), - (ulong) array); - return; - case t_oparray: - /* This isn't really an array, but we'd like to see */ - /* its contents anyway. */ - debug_dump_array(mem, array->value.const_refs); - return; - case t_array: - case t_mixedarray: - case t_shortarray: - ; + default: + dprintf2("%s at 0x%lx isn't an array.\n", + (type < countof(type_strings) ? + type_strings[type] : "????"), + (ulong) array); + return; + case t_oparray: + /* This isn't really an array, but we'd like to see */ + /* its contents anyway. */ + debug_dump_array(mem, array->value.const_refs); + return; + case t_array: + case t_mixedarray: + case t_shortarray: + ; } /* This "packed" loop works for all array-types. */ for (len = r_size(array), pp = array->value.packed; - len > 0; - len--, pp = packed_next(pp)) { - ref temp; + len > 0; + len--, pp = packed_next(pp)) { + ref temp; - packed_get(mem, pp, &temp); - if (r_is_packed(pp)) { - dprintf2("0x%lx* 0x%04x ", (ulong)pp, (uint)*pp); - print_ref_data(mem, &temp); - } else { - dprintf2("0x%lx: 0x%02x ", (ulong)pp, r_type(&temp)); - debug_dump_one_ref(mem, &temp); - } - dputc('\n'); + packed_get(mem, pp, &temp); + if (r_is_packed(pp)) { + dprintf2("0x%lx* 0x%04x ", (ulong)pp, (uint)*pp); + print_ref_data(mem, &temp); + } else { + dprintf2("0x%lx: 0x%02x ", (ulong)pp, r_type(&temp)); + debug_dump_one_ref(mem, &temp); + } + dputc('\n'); } } |