view release on metacpan or  search on metacpan

Opcodes.xs  view on Meta::CPAN

#define OA_MAYBRANCH 	16384

MODULE = Opcodes	PACKAGE = Opcodes

PROTOTYPES: DISABLE

INCLUDE: const-xs.inc

void
opcodes()
PPCODE:
    if (GIMME_V == G_ARRAY) {
        int i;
        EXTEND(sp, MAXO);
        /* ([ opcode opname ppaddr check opargs ]) from opnames.h/opcode.h */
	for (i=0; i < MAXO; i++) {
            AV* ref;
            ref = newAV();
            av_extend(ref, 5);
            av_store(ref, 0, newSViv( i ));
            av_store(ref, 1, newSVpvn(PL_op_name[i], strlen(PL_op_name[i]) ));