Exemplos de PARROT_CALLIN_START em C++ (Cpp)

Exemplo n.º 1

Arquivo: bkmarshal.c Projeto: GunioRobot/blizkost

static int
blizkost_delete_binding(PerlInterpreter *my_perl, SV *handle, MAGIC *mg)
{
    blizkost_nexus *nexus = (blizkost_nexus *)(mg->mg_ptr);
    dBNINTERP;
    PMC *targ = (PMC *)(mg->mg_obj);

    PARROT_CALLIN_START(interp);
    Parrot_pmc_gc_unregister(interp, targ);
    PARROT_CALLIN_END(interp);

    return 0;
}

Exemplo n.º 2

Arquivo: extend.c Projeto: Cristofor/parrot

PARROT_EXPORT
int
Parrot_vfprintf(PARROT_INTERP, ARGIN(Parrot_PMC pio),
        ARGIN(const char *s), va_list args)
{
    ASSERT_ARGS(Parrot_vfprintf)
    STRING * str;
    INTVAL retval;

    PARROT_CALLIN_START(interp);
    str = Parrot_vsprintf_c(interp, s, args);
    retval = Parrot_io_putps(interp, pio, str);
    PARROT_CALLIN_END(interp);

    return retval;
}