Ticket #175: patch.patch

languages/perl6/src/pmc/perl6multisub.pmc

@@ -214 +214 @@
 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 +268 @@
 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 +434 @@
 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 +647 @@
 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 +901 @@
 
 Marks the candidate list.
 
+=cut
+
 */
     VTABLE void mark() {
         PMC *candidates;

src/pmc/parrotrunningthread.pmc

@@ -82 +82 @@
 
 Change the thread ID we refer to to C<new_tid>.
 
+=cut
+
 */
 
     VTABLE void set_integer_native(INTVAL new_tid) {