I think it should be something like this:
/* RT46099 Check we don't already have this parent. */
/* If we have already added a method with this name... */
if (VTABLE_exists_keyed_str(interp, _class->all_parents,
VTABLE_name(interp, parent))) {
real_exception(interp, NULL, E_NotImplementedError,
"This class already has this parent.");
}
can't test this, parrot does not build in pdd15 branch.
it should be more or less like this, based on impl of add_attribute.
the headerfile classobject.h is missing in the branch, while it is there in
trunk. Is this right?
btw, the type of exception should be changed, also for other methods.
hth
kjs
On 10/5/07, via RT Paul Cochrane <[EMAIL PROTECTED]> wrote:
>
> # New Ticket Created by Paul Cochrane
> # Please include the string: [perl #46099]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=46099 >
>
>
> In src/pmc/class.pmc:add_parent() there is the todo item:
>
> /* XXX Check we don't already have this parent. */
>
