Ticket #1659: get_results_clean.patch

File get_results_clean.patch, 4.4 KB (added by NotFound, 4 years ago)
  • src/ops/core.ops

     
    542542            PARROT_ERRORS_RESULT_COUNT_FLAG); 
    543543 
    544544    argc = VTABLE_elements(interp, signature); 
     545    Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), PMCNULL); 
    545546    goto OFFSET(argc + 2); 
    546547} 
    547548 
  • src/ops/core_ops.c

     
    1451614516    Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params, 
    1451714517            PARROT_ERRORS_RESULT_COUNT_FLAG); 
    1451814518 
    14519     argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2; 
     14519    argc = VTABLE_elements(interp, signature); 
     14520    Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), PMCNULL);return (opcode_t *)cur_opcode + argc + 2; 
    1452014521} 
    1452114522 
    1452214523opcode_t * 
     
    1479714798    opcode_t        *dest; 
    1479814799    opcode_t * const ret       =cur_opcode + 2; 
    1479914800    PMC      * const resume    = pmc_new(interp, enum_class_Continuation); 
    14800     PMC      * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,  
     14801    PMC      * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, 
    1480114802                                                           CONTROL_EXIT, NULL); 
    1480214803 
    1480314804    VTABLE_set_pointer(interp, resume, ret); 
     
    1481514816    opcode_t        *dest; 
    1481614817    opcode_t * const ret       =cur_opcode + 2; 
    1481714818    PMC      * const resume    = pmc_new(interp, enum_class_Continuation); 
    14818     PMC      * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,  
     14819    PMC      * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, 
    1481914820                                                           CONTROL_EXIT, NULL); 
    1482014821 
    1482114822    VTABLE_set_pointer(interp, resume, ret); 
  • t/pmc/eval.t

     
    6666    concat S5, "returncc\n" 
    6767    compreg P1, "PASM" 
    6868    set_args "0", S5 
     69    invokecc P1 
    6970    get_results "0", P6 
    70     invokecc P1 
    7171    get_global P2, "_foo" 
    7272    invokecc P2 
    7373    print "back\n" 
  • t/pmc/objects.t

     
    16031603    new $P5, ['String']        # set attribute values 
    16041604    set $P5, "i"       # attribute slots have reference semantics 
    16051605    set_args "0,0", $P5, "i" 
     1606    callmethodcc $P13, "Foo54__set" 
    16061607    get_results "" 
    1607     callmethodcc $P13, "Foo54__set" 
    16081608 
    16091609    new $P5, ['String'] 
    16101610    set $P5, "j" 
    16111611    set_args "0,0", $P5, "j" 
     1612    callmethodcc  $P13,"Foo54__set" 
    16121613    get_results "" 
    1613     callmethodcc  $P13,"Foo54__set" 
    16141614 
    16151615    new $P5, ['String'] 
    16161616    set $P5, "k" 
    16171617    set_args "0,0", $P5, "k" 
     1618    callmethodcc  $P13,"Bar54__set" 
    16181619    get_results "" 
    1619     callmethodcc  $P13,"Bar54__set" 
    16201620 
    16211621    new $P5, ['String'] 
    16221622    set $P5, "l" 
    16231623    set_args "0,0", $P5, "l" 
     1624    callmethodcc  $P13,"Bar54__set" 
    16241625    get_results "" 
    1625     callmethodcc  $P13,"Bar54__set" 
    16261626 
    16271627    # now retrieve attributes 
    16281628    set_args "0",  "i" 
     1629    callmethodcc  $P13,"Foo54__get" 
    16291630    get_results "0", $P5 
    1630     callmethodcc  $P13,"Foo54__get" 
    16311631    is( $P5, "i", 'got attrib i from Bar54->Foo54__get' ) 
    16321632 
    16331633    set_args "0",  "j" 
     1634    callmethodcc  $P13,"Foo54__get" 
    16341635    get_results "0", $P5 
    1635     callmethodcc  $P13,"Foo54__get" 
    16361636    is( $P5, "j", 'got attrib j from Bar54->Foo54__get' ) 
    16371637 
    16381638    set_args "0",  "k" 
     1639    callmethodcc  $P13,"Bar54__get" 
    16391640    get_results "0", $P5 
    1640     callmethodcc  $P13,"Bar54__get" 
    16411641    is( $P5, "k", 'got attrib k from Bar54->Bar54__get' ) 
    16421642 
    16431643    set_args "0",  "l" 
     1644    callmethodcc  $P13,"Bar54__get" 
    16441645    get_results "0", $P5 
    1645     callmethodcc  $P13,"Bar54__get" 
    16461646    is( $P5, "l", 'got attrib l from Bar54->Bar54__get' ) 
    16471647.end 
    16481648 
  • t/op/calling.t

     
    18521852pasm_output_is( <<'CODE', <<'OUTPUT', "named - 5 slurpy array -> named" ); 
    18531853.pcc_sub main: 
    18541854    set_args  "0, 0, 0, 0x200, 0, 0x200, 0", 10, 20, 30, 'a', 40, 'b', 50 
    1855     get_results "" 
    18561855    find_name P1, "foo" 
    18571856    invokecc P1 
     1857    get_results "" 
    18581858    print "ok\n" 
    18591859    end 
    18601860.pcc_sub foo: