develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35506 - trunk/languages/perl6/src/pmc

From:
jonathan
Date:
January 13, 2009 13:34
Subject:
[svn:parrot] r35506 - trunk/languages/perl6/src/pmc
Message ID:
20090113213405.B4D89CB9F9@x12.develooper.com
Author: jonathan
Date: Tue Jan 13 13:34:02 2009
New Revision: 35506

Modified:
   trunk/languages/perl6/src/pmc/perl6multisub.pmc

Log:
[rakudo] Get the signature in Perl6MultiSub straight from the property, rathre than via a method. Bit faster, and solves an ordering issue in the forthcoming role changes.

Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc	Tue Jan 13 13:34:02 2009
@@ -315,10 +315,7 @@
                     VTABLE_inspect_str(interp, candidate, CONST_STRING(interp, "pos_optional")));
 
         /* Type information. */
-        meth = VTABLE_find_method(interp, candidate,
-                CONST_STRING(interp, "signature"));
-        signature = (PMC*)Parrot_run_meth_fromc_args(interp, meth, candidate,
-                CONST_STRING(interp, "signature"), "P");
+        signature = VTABLE_getprop(interp, candidate, CONST_STRING(interp, "$!signature"));
         meth = VTABLE_find_method(interp, signature,
                 CONST_STRING(interp, "params"));
         params = (PMC*)Parrot_run_meth_fromc_args(interp, meth, signature,



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About