root/lang/c/misc/mlisp/vm/op.h @ 11110

//=============================================================================
/// �o�C�g�R�[�h�̖��ߒ�
//=============================================================================

#pragma once

#if 1
#define HALT            intern("halt")
#define REFER           intern("refer")
#define CONSTANT        intern("constant")
#define CLOSE           intern("close")
#define TEST            intern("test")
#define ASSIGN          intern("assign")
#define DEFINE          intern("define")
#define CONTI           intern("conti")
#define NUATE           intern("nuate")
#define FRAME           intern("frame")
#define ARGUMENT        intern("argument")
#define APPLY           intern("apply")
#define RETURN          intern("return")

#else
typedef enum {
        opHALT,
        opREFER,
        opCONSTANT,
        opCLOSE,
        opTEST,
        opASSIGN,
        opDEFINE,
        opCONTI,
        opNUATE,
        opFRAME,
        opARGUMENT,
        opAPPLY,
        opRETURN,
} VMOP;

#define HALT            int2s(opHALT)
#define REFER           int2s(opREFER)
#define CONSTANT        int2s(opCONSTANT)
#define CLOSE           int2s(opCLOSE)
#define TEST            int2s(opTEST)
#define ASSIGN          int2s(opASSIGN)
#define DEFINE          int2s(opDEFINE)
#define CONTI           int2s(opCONTI)
#define NUATE           int2s(opNUATE)
#define FRAME           int2s(opFRAME)
#define ARGUMENT        int2s(opARGUMENT)
#define APPLY           int2s(opAPPLY)
#define RETURN          int2s(opRETURN)
#endif

//