# New Ticket Created by Jarkko Hietaniemi
# Please include the string: [perl #30874]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=30874 >
Currently pdump doesn't build because of a booboo in src/packdump.c -
this is for example what gcc thinks of it:
src/packdump.c: In function `PackFile_Constant_dump':
src/packdump.c:123: error: dereferencing pointer to incomplete type
src/packdump.c:124: error: dereferencing pointer to incomplete type
Other compilers are not much happier.
Patch attached.
--
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
--- src/packdump.c.dist 2004-07-29 22:42:09.000000000 +0300
+++ src/packdump.c 2004-07-29 22:48:07.000000000 +0300
@@ -105,22 +105,23 @@
PIO_printf(interpreter, " [ 'PFC_PMC', {\n");
{
PMC *pmc = self->u.key;
- struct Parrot_Sub *sub;
- int code_start = (int)interpreter->code->cur_cs->base.data;
+ parrot_sub_t sub;
+ INTVAL code_start =
+ PTR2INTVAL(interpreter->code->cur_cs->base.data);
switch (pmc->vtable->base_type) {
case enum_class_Sub:
case enum_class_Closure:
case enum_class_Continuation:
case enum_class_Coroutine:
- sub = (struct Parrot_Sub*) PMC_sub(pmc);
+ sub = PMC_sub(pmc);
PIO_printf(interpreter,
"\tclass => %s, "
"start_offs => %d, "
"end_offs => %d, "
"packed => '%s'\n",
(char*)pmc->vtable->whoami->strstart,
- (int)PMC_struct_val(pmc) - code_start,
- (int)sub->end - code_start,
+ PTR2INTVAL(PMC_struct_val(pmc)) - code_start,
+ PTR2INTVAL(sub->end) - code_start,
sub->packed);
break;
default:
