[perl #41325] [PATCH] Fill in missing pointer cast in

[Andy Dougherty]

# New Ticket Created by Andy Dougherty
# Please include the string: [perl #41325]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41325 >

This patch was necessary for me to build parrot with my old Sun C
compiler. Without it, the PMC_struct_val is of type (void *).

diff -r -u parrot-current/src/pmc/nci.pmc parrot-andy/src/pmc/nci.pmc
--- parrot-current/src/pmc/nci.pmc Wed Jan 17 03:15:09 2007
+++ parrot-andy/src/pmc/nci.pmc Tue Jan 23 10:33:28 2007
@@ -152,7 +152,7 @@

void* invoke(void * next) {
typedef INTVAL(*nci_sub_t)(Interp * , PMC * );
- nci_sub_t func = PObj_flag_TEST(private2, SELF) ? PMC_struct_val(SELF)
+ nci_sub_t func = PObj_flag_TEST(private2, SELF) ? (nci_sub_t) PMC_struct_val(SELF)
: (nci_sub_t)D2FPTR(PMC_data(SELF));
PMC *cont;

--
Andy Dougherty doug...@lafayette.edu