Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[src] Show string encoding in pbc_dump and pbc_disassemble
git-svn-id: https://svn.parrot.org/parrot/trunk@49514 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information
nwellnhof committed Oct 11, 2010
1 parent 9275498 commit d4e2ec8
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 2 deletions.
9 changes: 8 additions & 1 deletion src/debug.c
Expand Up @@ -2350,12 +2350,19 @@ PDB_disassemble_op(PARROT_INTERP, ARGOUT(char *dest), size_t space,
case PARROT_ARG_SC:
{
const STRING *s = interp->code->const_table->str.constants[op[j]];

if (s->encoding != Parrot_ascii_encoding_ptr) {
strcpy(&dest[size], s->encoding->name);
size += strlen(s->encoding->name);
dest[size++] = ':';
}

dest[size++] = '"';
if (s->strlen) {
char * const unescaped =
Parrot_str_to_cstring(interp, s);
char * const escaped =
PDB_escape(interp, unescaped, s->strlen);
PDB_escape(interp, unescaped, s->bufused);
if (escaped) {
strcpy(&dest[size], escaped);
size += strlen(escaped);
Expand Down
2 changes: 1 addition & 1 deletion src/packdump.c
Expand Up @@ -193,7 +193,7 @@ PackFile_Constant_dump_str(PARROT_INTERP, ARGIN(const PackFile_ConstTable *ct),

Parrot_io_printf(interp, " [ 'PFC_STRING', {\n");
pobj_flag_dump(interp, (long)PObj_get_FLAGS(self));
Parrot_io_printf(interp, " ENCODING => %ld,\n", self->encoding);
Parrot_io_printf(interp, " ENCODING => %s,\n", self->encoding->name);
Parrot_io_printf(interp, " SIZE => %ld,\n", self->bufused);
Parrot_io_printf(interp, " DATA => \"%Ss\"\n",
Parrot_str_escape(interp, self));
Expand Down

0 comments on commit d4e2ec8

Please sign in to comment.