Ticket #175: patch.patch

File patch.patch, 1.8 KB (added by jimmy, 6 years ago)
  • languages/perl6/src/pmc/perl6multisub.pmc

     
    214214Takes two candidates and determines if the first one is narrower than the 
    215215second. Returns a true value if they are. 
    216216 
     217=cut 
     218 
    217219*/ 
    218220static INTVAL is_narrower(PARROT_INTERP, candidate_info *a, candidate_info *b) { 
    219221    STRING *ACCEPTS = CONST_STRING(interp, "ACCEPTS"); 
     
    266268Takes a ResizablePMCArray of the candidates, collects information about them 
    267269and then does a topological sort of them. 
    268270 
     271=cut 
     272 
    269273*/ 
    270274static candidate_info** sort_candidiates(PARROT_INTERP, PMC *candidates, PMC **proto_out) { 
    271275    INTVAL i, j, sig_elems, candidates_to_sort, result_pos; 
     
    430434or throws an error saying that the dispatch failed if there were no 
    431435candidates or that it was ambiguous if there were tied candidates. 
    432436 
     437=cut 
     438 
    433439*/ 
    434440 
    435441static PMC* do_dispatch(PARROT_INTERP, candidate_info **candidates, PMC *proto, 
     
    641647Checks if a PMC is invokable; returns a true value if so and a false value if 
    642648not. 
    643649 
     650=cut 
     651 
    644652*/ 
    645653static int check_invokable(PARROT_INTERP, PMC *value) { 
    646654    STRING * const _sub = CONST_STRING(interp, "Sub"); 
     
    893901 
    894902Marks the candidate list. 
    895903 
     904=cut 
     905 
    896906*/ 
    897907    VTABLE void mark() { 
    898908        PMC *candidates; 
  • src/pmc/parrotrunningthread.pmc

     
    8282 
    8383Change the thread ID we refer to to C<new_tid>. 
    8484 
     85=cut 
     86 
    8587*/ 
    8688 
    8789    VTABLE void set_integer_native(INTVAL new_tid) {