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

Author: jkeenan
Date: Thu Jan 15 08:56:07 2009
New Revision: 35594

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

Log:
Applying patch submitted by jimmy in TT#175.  POD corrections in two files.

Modified: trunk/languages/perl6/src/pmc/perl6multisub.pmc
==============================================================================
--- trunk/languages/perl6/src/pmc/perl6multisub.pmc	(original)
+++ trunk/languages/perl6/src/pmc/perl6multisub.pmc	Thu Jan 15 08:56:07 2009
@@ -214,6 +214,8 @@
 Takes two candidates and determines if the first one is narrower than the
 second. Returns a true value if they are.
 
+=cut
+
 */
 static INTVAL is_narrower(PARROT_INTERP, candidate_info *a, candidate_info *b) {
     STRING *ACCEPTS = CONST_STRING(interp, "ACCEPTS");
@@ -266,6 +268,8 @@
 Takes a ResizablePMCArray of the candidates, collects information about them
 and then does a topological sort of them.
 
+=cut
+
 */
 static candidate_info** sort_candidiates(PARROT_INTERP, PMC *candidates, PMC **proto_out) {
     INTVAL i, j, sig_elems, candidates_to_sort, result_pos;
@@ -430,6 +434,8 @@
 or throws an error saying that the dispatch failed if there were no
 candidates or that it was ambiguous if there were tied candidates.
 
+=cut
+
 */
 
 static PMC* do_dispatch(PARROT_INTERP, candidate_info **candidates, PMC *proto,
@@ -641,6 +647,8 @@
 Checks if a PMC is invokable; returns a true value if so and a false value if
 not.
 
+=cut
+
 */
 static int check_invokable(PARROT_INTERP, PMC *value) {
     STRING * const _sub = CONST_STRING(interp, "Sub");
@@ -893,6 +901,8 @@
 
 Marks the candidate list.
 
+=cut
+
 */
     VTABLE void mark() {
         PMC *candidates;

Modified: trunk/src/pmc/parrotrunningthread.pmc
==============================================================================
--- trunk/src/pmc/parrotrunningthread.pmc	(original)
+++ trunk/src/pmc/parrotrunningthread.pmc	Thu Jan 15 08:56:07 2009
@@ -82,6 +82,8 @@
 
 Change the thread ID we refer to to C<new_tid>.
 
+=cut
+
 */
 
     VTABLE void set_integer_native(INTVAL new_tid) {

• [svn:parrot] r35594 - in trunk: languages/perl6/src/pmc src/pmc by jkeenan