Author: julianalbo
Date: Thu Aug 7 07:27:35 2008
New Revision: 30091
Modified:
trunk/languages/perl6/src/pmc/perl6multisub.pmc
Log:
fixed perl6multisub for c++ build
Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc (original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc Thu Aug 7 07:27:35 2008
@@ -192,7 +192,7 @@
*/
static candidate_info** sort_candidiates(PARROT_INTERP, PMC *candidates) {
- candidate_info** result = mem_sys_allocate_zeroed(2 * sizeof
(candidate_info*));
+ candidate_info** result = mem_allocate_n_zeroed_typed(2, candidate_info*);
return result;
}
@@ -259,7 +259,7 @@
pmclass Perl6MultiSub extends MultiSub need_ext dynpmc group perl6_group {
ATTR PMC *candidates;
- ATTR void *candidates_sorted;
+ ATTR struct candidate_info *candidates_sorted;
/*
