On Wed, Apr 22, 2009 at 3:49 AM, Jonathan Leto
<perl6-bugs-follo...@perl.org> wrote:
> # New Ticket Created by  "Jonathan Leto"
> # Please include the string:  [perl #64958]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64958 >
>
>
> Howdy,
>
> The attached patch makes calling log10 as a method on Complex numbers
> work, as well as making all tests in t/spec/S32-num/log.t pass.
>
> This was tested against parrot r38250.
>
> Cheers,
>
>
> --
>
> Jonathan Leto
> jonat...@leto.net
> http://leto.net
>

This (untested) version will use the 'log10' method regardless of PMC
type, so it doesn't haven't to be re-extended for another numeric PMC
later.

.sub 'log10' :multi(num)
    .param num z
    $N0 = log10 z
    .return($N0)
.end

.sub 'log10' :multi(_)
    .param pmc z
    $P0 = z.'log10'()
    .return($P0)
.end

Regards.
-- 
Will "Coke" Coleda

Reply via email to