Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f41cf98f7b
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (22 sloc) 0.724 kb
#ifndef PARROT_EMBED_PRIVATE_H
#define PARROT_EMBED_PRIVATE_H
#include "pmc/pmc_parrotinterpreter.h"
#define GET_RAW_INTERP(p) ((Parrot_ParrotInterpreter_attributes*)(p)->data)->interp;
#define EMBED_API_CALLIN(p, i) \
void * _oldtop; \
Parrot_Interp (i) = PMC_IS_NULL(p) ? NULL : GET_RAW_INTERP(p); \
_oldtop = (i)->lo_var_ptr; \
if (_oldtop) {} else (i)->lo_var_ptr = &_oldtop; \
if (setjmp((i)->api_jmp_buf)) { \
return 0; \
} else { \
{
#define EMBED_API_CALLOUT(p, i) \
} \
if (!_oldtop) {\
PARROT_ASSERT((i)->lo_var_ptr == &_oldtop);\
(i)->lo_var_ptr = NULL;\
}\
return 1; \
}
#endif /* PARROT_EMBED_PRIVATE_H */
Jump to Line
Something went wrong with that request. Please try again.