/* File: vmi-metadata.h This file provides a set of defines describing the virtual machine instructions and their arguments. These are used by other source files to define various attributes and structures. See pl-vmi.h for more details. Note: this file is generated by /opt/logicmoo_workspace/swipl-devel/build/src/mkvmi from pl-vmi.c. DO NOT EDIT */ #ifndef _IN_PL_VMI_H #error "Do not include directly! Include \"pl-vmi.h\"" #endif #define VM_SIGNATURE 0x9fa44fc5 #define FOREACH_VMI_CALL(sep,f,...) f(D_BREAK, ## __VA_ARGS__) sep() f(I_NOP, ## __VA_ARGS__) sep() f(H_ATOM, ## __VA_ARGS__) sep() f(H_SMALLINT, ## __VA_ARGS__) sep() f(H_NIL, ## __VA_ARGS__) sep() f(H_INTEGER, ## __VA_ARGS__) sep() f(H_INT64, ## __VA_ARGS__) sep() f(H_FLOAT, ## __VA_ARGS__) sep() f(H_MPZ, ## __VA_ARGS__) sep() f(H_MPQ, ## __VA_ARGS__) sep() f(H_STRING, ## __VA_ARGS__) sep() f(H_VOID, ## __VA_ARGS__) sep() f(H_VOID_N, ## __VA_ARGS__) sep() f(H_VAR, ## __VA_ARGS__) sep() f(H_FIRSTVAR, ## __VA_ARGS__) sep() f(H_FUNCTOR, ## __VA_ARGS__) sep() f(H_RFUNCTOR, ## __VA_ARGS__) sep() f(H_LIST, ## __VA_ARGS__) sep() f(H_RLIST, ## __VA_ARGS__) sep() f(H_POP, ## __VA_ARGS__) sep() f(H_LIST_FF, ## __VA_ARGS__) sep() f(B_ATOM, ## __VA_ARGS__) sep() f(B_SMALLINT, ## __VA_ARGS__) sep() f(B_NIL, ## __VA_ARGS__) sep() f(B_INTEGER, ## __VA_ARGS__) sep() f(B_INT64, ## __VA_ARGS__) sep() f(B_FLOAT, ## __VA_ARGS__) sep() f(B_MPZ, ## __VA_ARGS__) sep() f(B_MPQ, ## __VA_ARGS__) sep() f(B_STRING, ## __VA_ARGS__) sep() f(B_ARGVAR, ## __VA_ARGS__) sep() f(B_VAR0, ## __VA_ARGS__) sep() f(B_VAR1, ## __VA_ARGS__) sep() f(B_VAR2, ## __VA_ARGS__) sep() f(B_VAR, ## __VA_ARGS__) sep() f(B_UNIFY_FIRSTVAR, ## __VA_ARGS__) sep() f(B_UNIFY_VAR, ## __VA_ARGS__) sep() f(B_UNIFY_EXIT, ## __VA_ARGS__) sep() f(B_UNIFY_FF, ## __VA_ARGS__) sep() f(B_UNIFY_VF, ## __VA_ARGS__) sep() f(B_UNIFY_FV, ## __VA_ARGS__) sep() f(B_UNIFY_VV, ## __VA_ARGS__) sep() f(B_UNIFY_FC, ## __VA_ARGS__) sep() f(B_UNIFY_VC, ## __VA_ARGS__) sep() f(B_EQ_VV, ## __VA_ARGS__) sep() f(B_EQ_VC, ## __VA_ARGS__) sep() f(B_NEQ_VV, ## __VA_ARGS__) sep() f(B_NEQ_VC, ## __VA_ARGS__) sep() f(B_ARG_CF, ## __VA_ARGS__) sep() f(B_ARG_VF, ## __VA_ARGS__) sep() f(B_ARGFIRSTVAR, ## __VA_ARGS__) sep() f(B_FIRSTVAR, ## __VA_ARGS__) sep() f(B_VOID, ## __VA_ARGS__) sep() f(B_FUNCTOR, ## __VA_ARGS__) sep() f(B_RFUNCTOR, ## __VA_ARGS__) sep() f(B_LIST, ## __VA_ARGS__) sep() f(B_RLIST, ## __VA_ARGS__) sep() f(B_POP, ## __VA_ARGS__) sep() f(I_CHP, ## __VA_ARGS__) sep() f(I_SSU_CHOICE, ## __VA_ARGS__) sep() f(I_SSU_COMMIT, ## __VA_ARGS__) sep() f(I_ENTER, ## __VA_ARGS__) sep() f(I_CONTEXT, ## __VA_ARGS__) sep() f(I_CALL, ## __VA_ARGS__) sep() f(I_DEPART, ## __VA_ARGS__) sep() f(I_DEPARTATM, ## __VA_ARGS__) sep() f(I_DEPARTM, ## __VA_ARGS__) sep() f(I_EXIT, ## __VA_ARGS__) sep() f(I_EXITFACT, ## __VA_ARGS__) sep() f(I_EXITQUERY, ## __VA_ARGS__) sep() f(I_YIELD, ## __VA_ARGS__) sep() f(L_NOLCO, ## __VA_ARGS__) sep() f(L_VAR, ## __VA_ARGS__) sep() f(L_VOID, ## __VA_ARGS__) sep() f(L_ATOM, ## __VA_ARGS__) sep() f(L_NIL, ## __VA_ARGS__) sep() f(L_SMALLINT, ## __VA_ARGS__) sep() f(I_LCALL, ## __VA_ARGS__) sep() f(I_TCALL, ## __VA_ARGS__) sep() f(I_DET, ## __VA_ARGS__) sep() f(I_CUT, ## __VA_ARGS__) sep() f(C_JMP, ## __VA_ARGS__) sep() f(C_OR, ## __VA_ARGS__) sep() f(C_SOFTIFTHEN, ## __VA_ARGS__) sep() f(C_IFTHEN, ## __VA_ARGS__) sep() f(C_DET, ## __VA_ARGS__) sep() f(C_DETTRUE, ## __VA_ARGS__) sep() f(C_DETFALSE, ## __VA_ARGS__) sep() f(C_NOT, ## __VA_ARGS__) sep() f(C_IFTHENELSE, ## __VA_ARGS__) sep() f(C_FASTCOND, ## __VA_ARGS__) sep() f(C_FASTCUT, ## __VA_ARGS__) sep() f(C_VAR, ## __VA_ARGS__) sep() f(C_VAR_N, ## __VA_ARGS__) sep() f(C_LSCUT, ## __VA_ARGS__) sep() f(C_LCUT, ## __VA_ARGS__) sep() f(I_CUTCHP, ## __VA_ARGS__) sep() f(C_SCUT, ## __VA_ARGS__) sep() f(C_LCUTIFTHEN, ## __VA_ARGS__) sep() f(C_CUT, ## __VA_ARGS__) sep() f(C_SOFTIF, ## __VA_ARGS__) sep() f(C_SOFTCUT, ## __VA_ARGS__) sep() f(C_END, ## __VA_ARGS__) sep() f(C_FAIL, ## __VA_ARGS__) sep() f(I_FAIL, ## __VA_ARGS__) sep() f(I_TRUE, ## __VA_ARGS__) sep() f(I_VAR, ## __VA_ARGS__) sep() f(I_NONVAR, ## __VA_ARGS__) sep() f(I_INTEGER, ## __VA_ARGS__) sep() f(I_RATIONAL, ## __VA_ARGS__) sep() f(I_FLOAT, ## __VA_ARGS__) sep() f(I_NUMBER, ## __VA_ARGS__) sep() f(I_ATOMIC, ## __VA_ARGS__) sep() f(I_ATOM, ## __VA_ARGS__) sep() f(I_STRING, ## __VA_ARGS__) sep() f(I_COMPOUND, ## __VA_ARGS__) sep() f(I_CALLABLE, ## __VA_ARGS__) sep() f(S_VIRGIN, ## __VA_ARGS__) sep() f(S_UNDEF, ## __VA_ARGS__) sep() f(S_STATIC, ## __VA_ARGS__) sep() f(S_DYNAMIC, ## __VA_ARGS__) sep() f(S_THREAD_LOCAL, ## __VA_ARGS__) sep() f(S_INCR_DYNAMIC, ## __VA_ARGS__) sep() f(S_WRAP, ## __VA_ARGS__) sep() f(S_MULTIFILE, ## __VA_ARGS__) sep() f(S_TRUSTME, ## __VA_ARGS__) sep() f(S_CALLWRAPPER, ## __VA_ARGS__) sep() f(S_ALLCLAUSES, ## __VA_ARGS__) sep() f(S_NEXTCLAUSE, ## __VA_ARGS__) sep() f(S_LIST, ## __VA_ARGS__) sep() f(S_MQUAL, ## __VA_ARGS__) sep() f(S_LMQUAL, ## __VA_ARGS__) sep() f(S_SSU_DET, ## __VA_ARGS__) sep() f(S_DET, ## __VA_ARGS__) sep() f(A_ENTER, ## __VA_ARGS__) sep() f(A_INTEGER, ## __VA_ARGS__) sep() f(A_INT64, ## __VA_ARGS__) sep() f(A_MPZ, ## __VA_ARGS__) sep() f(A_MPQ, ## __VA_ARGS__) sep() f(A_DOUBLE, ## __VA_ARGS__) sep() f(A_VAR, ## __VA_ARGS__) sep() f(A_VAR0, ## __VA_ARGS__) sep() f(A_VAR1, ## __VA_ARGS__) sep() f(A_VAR2, ## __VA_ARGS__) sep() f(A_FUNC0, ## __VA_ARGS__) sep() f(A_FUNC1, ## __VA_ARGS__) sep() f(A_FUNC2, ## __VA_ARGS__) sep() f(A_FUNC, ## __VA_ARGS__) sep() f(A_ROUNDTOWARDS_A, ## __VA_ARGS__) sep() f(A_ROUNDTOWARDS_V, ## __VA_ARGS__) sep() f(A_ADD, ## __VA_ARGS__) sep() f(A_MUL, ## __VA_ARGS__) sep() f(A_ADD_FC, ## __VA_ARGS__) sep() f(A_LT, ## __VA_ARGS__) sep() f(A_LE, ## __VA_ARGS__) sep() f(A_GT, ## __VA_ARGS__) sep() f(A_GE, ## __VA_ARGS__) sep() f(A_EQ, ## __VA_ARGS__) sep() f(A_NE, ## __VA_ARGS__) sep() f(A_IS, ## __VA_ARGS__) sep() f(A_FIRSTVAR_IS, ## __VA_ARGS__) sep() f(I_FOPEN, ## __VA_ARGS__) sep() f(I_FCALLDETVA, ## __VA_ARGS__) sep() f(I_FCALLDET0, ## __VA_ARGS__) sep() f(I_FCALLDET1, ## __VA_ARGS__) sep() f(I_FCALLDET2, ## __VA_ARGS__) sep() f(I_FCALLDET3, ## __VA_ARGS__) sep() f(I_FCALLDET4, ## __VA_ARGS__) sep() f(I_FCALLDET5, ## __VA_ARGS__) sep() f(I_FCALLDET6, ## __VA_ARGS__) sep() f(I_FCALLDET7, ## __VA_ARGS__) sep() f(I_FCALLDET8, ## __VA_ARGS__) sep() f(I_FCALLDET9, ## __VA_ARGS__) sep() f(I_FCALLDET10, ## __VA_ARGS__) sep() f(I_FEXITDET, ## __VA_ARGS__) sep() f(I_FOPENNDET, ## __VA_ARGS__) sep() f(I_FCALLNDETVA, ## __VA_ARGS__) sep() f(I_FCALLNDET0, ## __VA_ARGS__) sep() f(I_FCALLNDET1, ## __VA_ARGS__) sep() f(I_FCALLNDET2, ## __VA_ARGS__) sep() f(I_FCALLNDET3, ## __VA_ARGS__) sep() f(I_FCALLNDET4, ## __VA_ARGS__) sep() f(I_FCALLNDET5, ## __VA_ARGS__) sep() f(I_FCALLNDET6, ## __VA_ARGS__) sep() f(I_FCALLNDET7, ## __VA_ARGS__) sep() f(I_FCALLNDET8, ## __VA_ARGS__) sep() f(I_FCALLNDET9, ## __VA_ARGS__) sep() f(I_FCALLNDET10, ## __VA_ARGS__) sep() f(I_FEXITNDET, ## __VA_ARGS__) sep() f(I_FREDO, ## __VA_ARGS__) sep() f(I_CALLCLEANUP, ## __VA_ARGS__) sep() f(I_EXITCLEANUP, ## __VA_ARGS__) sep() f(I_CATCH, ## __VA_ARGS__) sep() f(I_EXITCATCH, ## __VA_ARGS__) sep() f(B_THROW, ## __VA_ARGS__) sep() f(I_CALLATM, ## __VA_ARGS__) sep() f(I_DEPARTATMV, ## __VA_ARGS__) sep() f(I_CALLATMV, ## __VA_ARGS__) sep() f(I_CALLM, ## __VA_ARGS__) sep() f(I_USERCALL0, ## __VA_ARGS__) sep() f(I_USERCALLN, ## __VA_ARGS__) sep() f(I_RESET, ## __VA_ARGS__) sep() f(I_EXITRESET, ## __VA_ARGS__) sep() f(I_CALLCONT, ## __VA_ARGS__) sep() f(I_SHIFT, ## __VA_ARGS__) sep() f(I_SHIFTCP, ## __VA_ARGS__) sep() f(S_TRIE_GEN, ## __VA_ARGS__) sep() f(T_TRIE_GEN2, ## __VA_ARGS__) sep() f(T_TRIE_GEN3, ## __VA_ARGS__) sep() f(T_VALUE, ## __VA_ARGS__) sep() f(T_DELAY, ## __VA_ARGS__) sep() f(T_TRY_FUNCTOR, ## __VA_ARGS__) sep() f(T_FUNCTOR, ## __VA_ARGS__) sep() f(T_POP, ## __VA_ARGS__) sep() f(T_POPN, ## __VA_ARGS__) sep() f(T_TRY_VAR, ## __VA_ARGS__) sep() f(T_VAR, ## __VA_ARGS__) sep() f(T_TRY_INTEGER, ## __VA_ARGS__) sep() f(T_INTEGER, ## __VA_ARGS__) sep() f(T_TRY_INT64, ## __VA_ARGS__) sep() f(T_INT64, ## __VA_ARGS__) sep() f(T_TRY_FLOAT, ## __VA_ARGS__) sep() f(T_FLOAT, ## __VA_ARGS__) sep() f(T_TRY_MPZ, ## __VA_ARGS__) sep() f(T_MPZ, ## __VA_ARGS__) sep() f(T_TRY_STRING, ## __VA_ARGS__) sep() f(T_STRING, ## __VA_ARGS__) sep() f(T_TRY_ATOM, ## __VA_ARGS__) sep() f(T_ATOM, ## __VA_ARGS__) sep() f(T_TRY_SMALLINT, ## __VA_ARGS__) sep() f(T_SMALLINT, ## __VA_ARGS__) #define FOREACH_VMH_CALL(sep,f,...) f(wakeup, ## __VA_ARGS__) sep() f(retry, ## __VA_ARGS__) sep() f(h_const, ## __VA_ARGS__) sep() f(bvar_cont, ## __VA_ARGS__) sep() f(unify_var_cont, ## __VA_ARGS__) sep() f(debug_equals2, ## __VA_ARGS__) sep() f(debug_eq_vv, ## __VA_ARGS__) sep() f(debug_neq_vv, ## __VA_ARGS__) sep() f(arg3_fast, ## __VA_ARGS__) sep() f(arg3_slow, ## __VA_ARGS__) sep() f(normal_call, ## __VA_ARGS__) sep() f(depart_or_retry_continue, ## __VA_ARGS__) sep() f(exit_checking_wakeup, ## __VA_ARGS__) sep() f(c_lcut_cont, ## __VA_ARGS__) sep() f(c_cut, ## __VA_ARGS__) sep() f(debug_pred1, ## __VA_ARGS__) sep() f(next_clause, ## __VA_ARGS__) sep() f(a_var_n, ## __VA_ARGS__) sep() f(common_an, ## __VA_ARGS__) sep() f(a_cmp_out, ## __VA_ARGS__) sep() f(I_FEXITDET, ## __VA_ARGS__) sep() f(foreign_redo, ## __VA_ARGS__) sep() f(I_FEXITNDET, ## __VA_ARGS__) sep() f(b_throw, ## __VA_ARGS__) sep() f(i_usercall_common, ## __VA_ARGS__) sep() f(call_type_error, ## __VA_ARGS__) sep() f(max_arity_overflow, ## __VA_ARGS__) sep() f(mcall_cont, ## __VA_ARGS__) sep() f(shift_common, ## __VA_ARGS__) sep() f(t_const, ## __VA_ARGS__) sep() f(shallow_backtrack, ## __VA_ARGS__) sep() f(deep_backtrack, ## __VA_ARGS__) /* Instruction data */ #define VMLCASE_wakeup wakeup #define VMHDECL_wakeup wakeup, 0, (), () #define VMHARGNAMES_wakeup #define VMHARGCOUNT_wakeup 0 #define VMHARGTYPES_wakeup #define VMLCASE_D_BREAK d_break #define VMIDECL_D_BREAK D_BREAK, 0, 0, () #define VMIFLAGS_D_BREAK 0 #define VMIARGCOUNT_D_BREAK 0 #define VMIARGTYPES_D_BREAK #define VMLCASE_retry retry #define VMHDECL_retry retry, 0, (), () #define VMHARGNAMES_retry #define VMHARGCOUNT_retry 0 #define VMHARGTYPES_retry #define VMLCASE_I_NOP i_nop #define VMIDECL_I_NOP I_NOP, 0, 0, () #define VMIFLAGS_I_NOP 0 #define VMIARGCOUNT_I_NOP 0 #define VMIARGTYPES_I_NOP #define VMLCASE_H_ATOM h_atom #define VMIDECL_H_ATOM H_ATOM, 0, 1, (CA1_DATA) #define VMIFLAGS_H_ATOM 0 #define VMIARGCOUNT_H_ATOM 1 #define VMIARGTYPES_H_ATOM CA1_DATA #define VMLCASE_H_SMALLINT h_smallint #define VMIDECL_H_SMALLINT H_SMALLINT, 0, 1, (CA1_DATA) #define VMIFLAGS_H_SMALLINT 0 #define VMIARGCOUNT_H_SMALLINT 1 #define VMIARGTYPES_H_SMALLINT CA1_DATA #define VMLCASE_h_const h_const #define VMHDECL_h_const h_const, 1, (word), (c) #define VMHARGNAMES_h_const c #define VMHARGCOUNT_h_const 1 #define VMHARGTYPES_h_const word #define VMLCASE_H_NIL h_nil #define VMIDECL_H_NIL H_NIL, 0, 0, () #define VMIFLAGS_H_NIL 0 #define VMIARGCOUNT_H_NIL 0 #define VMIARGTYPES_H_NIL #define VMLCASE_H_INTEGER h_integer #define VMIDECL_H_INTEGER H_INTEGER, 0, 1, (CA1_INTEGER) #define VMIFLAGS_H_INTEGER 0 #define VMIARGCOUNT_H_INTEGER 1 #define VMIARGTYPES_H_INTEGER CA1_INTEGER #define VMLCASE_H_INT64 h_int64 #define VMIDECL_H_INT64 H_INT64, 0, WORDS_PER_INT64, (CA1_INT64) #define VMIFLAGS_H_INT64 0 #define VMIARGCOUNT_H_INT64 WORDS_PER_INT64 #define VMIARGTYPES_H_INT64 CA1_INT64 #define VMLCASE_H_FLOAT h_float #define VMIDECL_H_FLOAT H_FLOAT, 0, WORDS_PER_DOUBLE, (CA1_FLOAT) #define VMIFLAGS_H_FLOAT 0 #define VMIARGCOUNT_H_FLOAT WORDS_PER_DOUBLE #define VMIARGTYPES_H_FLOAT CA1_FLOAT #define VMLCASE_H_MPZ h_mpz #define VMIDECL_H_MPZ H_MPZ, 0, VM_DYNARGC, (CA1_MPZ) #define VMIFLAGS_H_MPZ 0 #define VMIARGCOUNT_H_MPZ VM_DYNARGC #define VMIARGTYPES_H_MPZ CA1_MPZ #define VMLCASE_H_MPQ h_mpq #define VMIDECL_H_MPQ H_MPQ, 0, VM_DYNARGC, (CA1_MPQ) #define VMIFLAGS_H_MPQ 0 #define VMIARGCOUNT_H_MPQ VM_DYNARGC #define VMIARGTYPES_H_MPQ CA1_MPQ #define VMLCASE_H_STRING h_string #define VMIDECL_H_STRING H_STRING, 0, VM_DYNARGC, (CA1_STRING) #define VMIFLAGS_H_STRING 0 #define VMIARGCOUNT_H_STRING VM_DYNARGC #define VMIARGTYPES_H_STRING CA1_STRING #define VMLCASE_H_VOID h_void #define VMIDECL_H_VOID H_VOID, 0, 0, () #define VMIFLAGS_H_VOID 0 #define VMIARGCOUNT_H_VOID 0 #define VMIARGTYPES_H_VOID #define VMLCASE_H_VOID_N h_void_n #define VMIDECL_H_VOID_N H_VOID_N, 0, 1, (CA1_INTEGER) #define VMIFLAGS_H_VOID_N 0 #define VMIARGCOUNT_H_VOID_N 1 #define VMIARGTYPES_H_VOID_N CA1_INTEGER #define VMLCASE_H_VAR h_var #define VMIDECL_H_VAR H_VAR, 0, 1, (CA1_VAR) #define VMIFLAGS_H_VAR 0 #define VMIARGCOUNT_H_VAR 1 #define VMIARGTYPES_H_VAR CA1_VAR #define VMLCASE_H_FIRSTVAR h_firstvar #define VMIDECL_H_FIRSTVAR H_FIRSTVAR, 0, 1, (CA1_FVAR) #define VMIFLAGS_H_FIRSTVAR 0 #define VMIARGCOUNT_H_FIRSTVAR 1 #define VMIARGTYPES_H_FIRSTVAR CA1_FVAR #define VMLCASE_H_FUNCTOR h_functor #define VMIDECL_H_FUNCTOR H_FUNCTOR, 0, 1, (CA1_FUNC) #define VMIFLAGS_H_FUNCTOR 0 #define VMIARGCOUNT_H_FUNCTOR 1 #define VMIARGTYPES_H_FUNCTOR CA1_FUNC #define VMLCASE_H_RFUNCTOR h_rfunctor #define VMIDECL_H_RFUNCTOR H_RFUNCTOR, 0, 1, (CA1_FUNC) #define VMIFLAGS_H_RFUNCTOR 0 #define VMIARGCOUNT_H_RFUNCTOR 1 #define VMIARGTYPES_H_RFUNCTOR CA1_FUNC #define VMLCASE_H_LIST h_list #define VMIDECL_H_LIST H_LIST, 0, 0, () #define VMIFLAGS_H_LIST 0 #define VMIARGCOUNT_H_LIST 0 #define VMIARGTYPES_H_LIST #define VMLCASE_H_RLIST h_rlist #define VMIDECL_H_RLIST H_RLIST, 0, 0, () #define VMIFLAGS_H_RLIST 0 #define VMIARGCOUNT_H_RLIST 0 #define VMIARGTYPES_H_RLIST #define VMLCASE_H_POP h_pop #define VMIDECL_H_POP H_POP, 0, 0, () #define VMIFLAGS_H_POP 0 #define VMIARGCOUNT_H_POP 0 #define VMIARGTYPES_H_POP #define VMLCASE_H_LIST_FF h_list_ff #define VMIDECL_H_LIST_FF H_LIST_FF, 0, 2, (CA1_FVAR,CA1_FVAR) #define VMIFLAGS_H_LIST_FF 0 #define VMIARGCOUNT_H_LIST_FF 2 #define VMIARGTYPES_H_LIST_FF CA1_FVAR,CA1_FVAR #define VMLCASE_B_ATOM b_atom #define VMIDECL_B_ATOM B_ATOM, VIF_LCO, 1, (CA1_DATA) #define VMIFLAGS_B_ATOM VIF_LCO #define VMIARGCOUNT_B_ATOM 1 #define VMIARGTYPES_B_ATOM CA1_DATA #define VMLCASE_B_SMALLINT b_smallint #define VMIDECL_B_SMALLINT B_SMALLINT, VIF_LCO, 1, (CA1_DATA) #define VMIFLAGS_B_SMALLINT VIF_LCO #define VMIARGCOUNT_B_SMALLINT 1 #define VMIARGTYPES_B_SMALLINT CA1_DATA #define VMLCASE_B_NIL b_nil #define VMIDECL_B_NIL B_NIL, VIF_LCO, 0, () #define VMIFLAGS_B_NIL VIF_LCO #define VMIARGCOUNT_B_NIL 0 #define VMIARGTYPES_B_NIL #define VMLCASE_B_INTEGER b_integer #define VMIDECL_B_INTEGER B_INTEGER, 0, 1, (CA1_INTEGER) #define VMIFLAGS_B_INTEGER 0 #define VMIARGCOUNT_B_INTEGER 1 #define VMIARGTYPES_B_INTEGER CA1_INTEGER #define VMLCASE_B_INT64 b_int64 #define VMIDECL_B_INT64 B_INT64, 0, WORDS_PER_INT64, (CA1_INT64) #define VMIFLAGS_B_INT64 0 #define VMIARGCOUNT_B_INT64 WORDS_PER_INT64 #define VMIARGTYPES_B_INT64 CA1_INT64 #define VMLCASE_B_FLOAT b_float #define VMIDECL_B_FLOAT B_FLOAT, 0, WORDS_PER_DOUBLE, (CA1_FLOAT) #define VMIFLAGS_B_FLOAT 0 #define VMIARGCOUNT_B_FLOAT WORDS_PER_DOUBLE #define VMIARGTYPES_B_FLOAT CA1_FLOAT #define VMLCASE_B_MPZ b_mpz #define VMIDECL_B_MPZ B_MPZ, 0, VM_DYNARGC, (CA1_MPZ) #define VMIFLAGS_B_MPZ 0 #define VMIARGCOUNT_B_MPZ VM_DYNARGC #define VMIARGTYPES_B_MPZ CA1_MPZ #define VMLCASE_B_MPQ b_mpq #define VMIDECL_B_MPQ B_MPQ, 0, VM_DYNARGC, (CA1_MPQ) #define VMIFLAGS_B_MPQ 0 #define VMIARGCOUNT_B_MPQ VM_DYNARGC #define VMIARGTYPES_B_MPQ CA1_MPQ #define VMLCASE_B_STRING b_string #define VMIDECL_B_STRING B_STRING, 0, VM_DYNARGC, (CA1_STRING) #define VMIFLAGS_B_STRING 0 #define VMIARGCOUNT_B_STRING VM_DYNARGC #define VMIARGTYPES_B_STRING CA1_STRING #define VMLCASE_B_ARGVAR b_argvar #define VMIDECL_B_ARGVAR B_ARGVAR, 0, 1, (CA1_VAR) #define VMIFLAGS_B_ARGVAR 0 #define VMIARGCOUNT_B_ARGVAR 1 #define VMIARGTYPES_B_ARGVAR CA1_VAR #define VMLCASE_B_VAR0 b_var0 #define VMIDECL_B_VAR0 B_VAR0, VIF_LCO, 0, () #define VMIFLAGS_B_VAR0 VIF_LCO #define VMIARGCOUNT_B_VAR0 0 #define VMIARGTYPES_B_VAR0 #define VMLCASE_B_VAR1 b_var1 #define VMIDECL_B_VAR1 B_VAR1, VIF_LCO, 0, () #define VMIFLAGS_B_VAR1 VIF_LCO #define VMIARGCOUNT_B_VAR1 0 #define VMIARGTYPES_B_VAR1 #define VMLCASE_B_VAR2 b_var2 #define VMIDECL_B_VAR2 B_VAR2, VIF_LCO, 0, () #define VMIFLAGS_B_VAR2 VIF_LCO #define VMIARGCOUNT_B_VAR2 0 #define VMIARGTYPES_B_VAR2 #define VMLCASE_B_VAR b_var #define VMIDECL_B_VAR B_VAR, VIF_LCO, 1, (CA1_VAR) #define VMIFLAGS_B_VAR VIF_LCO #define VMIARGCOUNT_B_VAR 1 #define VMIARGTYPES_B_VAR CA1_VAR #define VMLCASE_bvar_cont bvar_cont #define VMHDECL_bvar_cont bvar_cont, 1, (int), (voffset) #define VMHARGNAMES_bvar_cont voffset #define VMHARGCOUNT_bvar_cont 1 #define VMHARGTYPES_bvar_cont int #define VMLCASE_B_UNIFY_FIRSTVAR b_unify_firstvar #define VMIDECL_B_UNIFY_FIRSTVAR B_UNIFY_FIRSTVAR, VIF_BREAK, 1, (CA1_FVAR) #define VMIFLAGS_B_UNIFY_FIRSTVAR VIF_BREAK #define VMIARGCOUNT_B_UNIFY_FIRSTVAR 1 #define VMIARGTYPES_B_UNIFY_FIRSTVAR CA1_FVAR #define VMLCASE_B_UNIFY_VAR b_unify_var #define VMIDECL_B_UNIFY_VAR B_UNIFY_VAR, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_B_UNIFY_VAR VIF_BREAK #define VMIARGCOUNT_B_UNIFY_VAR 1 #define VMIARGTYPES_B_UNIFY_VAR CA1_VAR #define VMLCASE_unify_var_cont unify_var_cont #define VMHDECL_unify_var_cont unify_var_cont, 0, (), () #define VMHARGNAMES_unify_var_cont #define VMHARGCOUNT_unify_var_cont 0 #define VMHARGTYPES_unify_var_cont #define VMLCASE_B_UNIFY_EXIT b_unify_exit #define VMIDECL_B_UNIFY_EXIT B_UNIFY_EXIT, 0, 0, () #define VMIFLAGS_B_UNIFY_EXIT 0 #define VMIARGCOUNT_B_UNIFY_EXIT 0 #define VMIARGTYPES_B_UNIFY_EXIT #define VMLCASE_B_UNIFY_FF b_unify_ff #define VMIDECL_B_UNIFY_FF B_UNIFY_FF, VIF_BREAK, 2, (CA1_FVAR,CA1_FVAR) #define VMIFLAGS_B_UNIFY_FF VIF_BREAK #define VMIARGCOUNT_B_UNIFY_FF 2 #define VMIARGTYPES_B_UNIFY_FF CA1_FVAR,CA1_FVAR #define VMLCASE_B_UNIFY_VF b_unify_vf #define VMIDECL_B_UNIFY_VF B_UNIFY_VF, VIF_BREAK, 2, (CA1_FVAR,CA1_VAR) #define VMIFLAGS_B_UNIFY_VF VIF_BREAK #define VMIARGCOUNT_B_UNIFY_VF 2 #define VMIARGTYPES_B_UNIFY_VF CA1_FVAR,CA1_VAR #define VMLCASE_B_UNIFY_FV b_unify_fv #define VMIDECL_B_UNIFY_FV B_UNIFY_FV, VIF_BREAK, 2, (CA1_FVAR,CA1_VAR) #define VMIFLAGS_B_UNIFY_FV VIF_BREAK #define VMIARGCOUNT_B_UNIFY_FV 2 #define VMIARGTYPES_B_UNIFY_FV CA1_FVAR,CA1_VAR #define VMLCASE_B_UNIFY_VV b_unify_vv #define VMIDECL_B_UNIFY_VV B_UNIFY_VV, VIF_BREAK, 2, (CA1_VAR,CA1_VAR) #define VMIFLAGS_B_UNIFY_VV VIF_BREAK #define VMIARGCOUNT_B_UNIFY_VV 2 #define VMIARGTYPES_B_UNIFY_VV CA1_VAR,CA1_VAR #define VMLCASE_debug_equals2 debug_equals2 #define VMHDECL_debug_equals2 debug_equals2, 0, (), () #define VMHARGNAMES_debug_equals2 #define VMHARGCOUNT_debug_equals2 0 #define VMHARGTYPES_debug_equals2 #define VMLCASE_B_UNIFY_FC b_unify_fc #define VMIDECL_B_UNIFY_FC B_UNIFY_FC, VIF_BREAK, 2, (CA1_FVAR, CA1_DATA) #define VMIFLAGS_B_UNIFY_FC VIF_BREAK #define VMIARGCOUNT_B_UNIFY_FC 2 #define VMIARGTYPES_B_UNIFY_FC CA1_FVAR, CA1_DATA #define VMLCASE_B_UNIFY_VC b_unify_vc #define VMIDECL_B_UNIFY_VC B_UNIFY_VC, VIF_BREAK, 2, (CA1_VAR, CA1_DATA) #define VMIFLAGS_B_UNIFY_VC VIF_BREAK #define VMIARGCOUNT_B_UNIFY_VC 2 #define VMIARGTYPES_B_UNIFY_VC CA1_VAR, CA1_DATA #define VMLCASE_B_EQ_VV b_eq_vv #define VMIDECL_B_EQ_VV B_EQ_VV, VIF_BREAK, 2, (CA1_VAR,CA1_VAR) #define VMIFLAGS_B_EQ_VV VIF_BREAK #define VMIARGCOUNT_B_EQ_VV 2 #define VMIARGTYPES_B_EQ_VV CA1_VAR,CA1_VAR #define VMLCASE_debug_eq_vv debug_eq_vv #define VMHDECL_debug_eq_vv debug_eq_vv, 0, (), () #define VMHARGNAMES_debug_eq_vv #define VMHARGCOUNT_debug_eq_vv 0 #define VMHARGTYPES_debug_eq_vv #define VMLCASE_B_EQ_VC b_eq_vc #define VMIDECL_B_EQ_VC B_EQ_VC, VIF_BREAK, 2, (CA1_VAR,CA1_DATA) #define VMIFLAGS_B_EQ_VC VIF_BREAK #define VMIARGCOUNT_B_EQ_VC 2 #define VMIARGTYPES_B_EQ_VC CA1_VAR,CA1_DATA #define VMLCASE_B_NEQ_VV b_neq_vv #define VMIDECL_B_NEQ_VV B_NEQ_VV, VIF_BREAK, 2, (CA1_VAR,CA1_VAR) #define VMIFLAGS_B_NEQ_VV VIF_BREAK #define VMIARGCOUNT_B_NEQ_VV 2 #define VMIARGTYPES_B_NEQ_VV CA1_VAR,CA1_VAR #define VMLCASE_debug_neq_vv debug_neq_vv #define VMHDECL_debug_neq_vv debug_neq_vv, 0, (), () #define VMHARGNAMES_debug_neq_vv #define VMHARGCOUNT_debug_neq_vv 0 #define VMHARGTYPES_debug_neq_vv #define VMLCASE_B_NEQ_VC b_neq_vc #define VMIDECL_B_NEQ_VC B_NEQ_VC, VIF_BREAK, 2, (CA1_VAR,CA1_DATA) #define VMIFLAGS_B_NEQ_VC VIF_BREAK #define VMIARGCOUNT_B_NEQ_VC 2 #define VMIARGTYPES_B_NEQ_VC CA1_VAR,CA1_DATA #define VMLCASE_B_ARG_CF b_arg_cf #define VMIDECL_B_ARG_CF B_ARG_CF, VIF_BREAK, 3, (CA1_DATA,CA1_VAR,CA1_FVAR) #define VMIFLAGS_B_ARG_CF VIF_BREAK #define VMIARGCOUNT_B_ARG_CF 3 #define VMIARGTYPES_B_ARG_CF CA1_DATA,CA1_VAR,CA1_FVAR #define VMLCASE_arg3_fast arg3_fast #define VMHDECL_arg3_fast arg3_fast, 4, (Word, intptr_t, Word, Word), (aidx, ai, aterm, aarg) #define VMHARGNAMES_arg3_fast aidx, ai, aterm, aarg #define VMHARGCOUNT_arg3_fast 4 #define VMHARGTYPES_arg3_fast Word, intptr_t, Word, Word #define VMLCASE_arg3_slow arg3_slow #define VMHDECL_arg3_slow arg3_slow, 3, (Word, Word, Word), (aidx, aterm, aarg) #define VMHARGNAMES_arg3_slow aidx, aterm, aarg #define VMHARGCOUNT_arg3_slow 3 #define VMHARGTYPES_arg3_slow Word, Word, Word #define VMLCASE_B_ARG_VF b_arg_vf #define VMIDECL_B_ARG_VF B_ARG_VF, VIF_BREAK, 3, (CA1_VAR,CA1_VAR,CA1_FVAR) #define VMIFLAGS_B_ARG_VF VIF_BREAK #define VMIARGCOUNT_B_ARG_VF 3 #define VMIARGTYPES_B_ARG_VF CA1_VAR,CA1_VAR,CA1_FVAR #define VMLCASE_B_ARGFIRSTVAR b_argfirstvar #define VMIDECL_B_ARGFIRSTVAR B_ARGFIRSTVAR, 0, 1, (CA1_FVAR) #define VMIFLAGS_B_ARGFIRSTVAR 0 #define VMIARGCOUNT_B_ARGFIRSTVAR 1 #define VMIARGTYPES_B_ARGFIRSTVAR CA1_FVAR #define VMLCASE_B_FIRSTVAR b_firstvar #define VMIDECL_B_FIRSTVAR B_FIRSTVAR, 0, 1, (CA1_FVAR) #define VMIFLAGS_B_FIRSTVAR 0 #define VMIARGCOUNT_B_FIRSTVAR 1 #define VMIARGTYPES_B_FIRSTVAR CA1_FVAR #define VMLCASE_B_VOID b_void #define VMIDECL_B_VOID B_VOID, VIF_LCO, 0, () #define VMIFLAGS_B_VOID VIF_LCO #define VMIARGCOUNT_B_VOID 0 #define VMIARGTYPES_B_VOID #define VMLCASE_B_FUNCTOR b_functor #define VMIDECL_B_FUNCTOR B_FUNCTOR, 0, 1, (CA1_FUNC) #define VMIFLAGS_B_FUNCTOR 0 #define VMIARGCOUNT_B_FUNCTOR 1 #define VMIARGTYPES_B_FUNCTOR CA1_FUNC #define VMLCASE_B_RFUNCTOR b_rfunctor #define VMIDECL_B_RFUNCTOR B_RFUNCTOR, 0, 1, (CA1_FUNC) #define VMIFLAGS_B_RFUNCTOR 0 #define VMIARGCOUNT_B_RFUNCTOR 1 #define VMIARGTYPES_B_RFUNCTOR CA1_FUNC #define VMLCASE_B_LIST b_list #define VMIDECL_B_LIST B_LIST, 0, 0, () #define VMIFLAGS_B_LIST 0 #define VMIARGCOUNT_B_LIST 0 #define VMIARGTYPES_B_LIST #define VMLCASE_B_RLIST b_rlist #define VMIDECL_B_RLIST B_RLIST, 0, 0, () #define VMIFLAGS_B_RLIST 0 #define VMIARGCOUNT_B_RLIST 0 #define VMIARGTYPES_B_RLIST #define VMLCASE_B_POP b_pop #define VMIDECL_B_POP B_POP, 0, 0, () #define VMIFLAGS_B_POP 0 #define VMIARGCOUNT_B_POP 0 #define VMIARGTYPES_B_POP #define VMLCASE_I_CHP i_chp #define VMIDECL_I_CHP I_CHP, 0, 0, () #define VMIFLAGS_I_CHP 0 #define VMIARGCOUNT_I_CHP 0 #define VMIARGTYPES_I_CHP #define VMLCASE_I_SSU_CHOICE i_ssu_choice #define VMIDECL_I_SSU_CHOICE I_SSU_CHOICE, 0, 0, () #define VMIFLAGS_I_SSU_CHOICE 0 #define VMIARGCOUNT_I_SSU_CHOICE 0 #define VMIARGTYPES_I_SSU_CHOICE #define VMLCASE_I_SSU_COMMIT i_ssu_commit #define VMIDECL_I_SSU_COMMIT I_SSU_COMMIT, 0, 0, () #define VMIFLAGS_I_SSU_COMMIT 0 #define VMIARGCOUNT_I_SSU_COMMIT 0 #define VMIARGTYPES_I_SSU_COMMIT #define VMLCASE_I_ENTER i_enter #define VMIDECL_I_ENTER I_ENTER, VIF_BREAK, 0, () #define VMIFLAGS_I_ENTER VIF_BREAK #define VMIARGCOUNT_I_ENTER 0 #define VMIARGTYPES_I_ENTER #define VMLCASE_I_CONTEXT i_context #define VMIDECL_I_CONTEXT I_CONTEXT, 0, 1, (CA1_MODULE) #define VMIFLAGS_I_CONTEXT 0 #define VMIARGCOUNT_I_CONTEXT 1 #define VMIARGTYPES_I_CONTEXT CA1_MODULE #define VMLCASE_I_CALL i_call #define VMIDECL_I_CALL I_CALL, VIF_BREAK, 1, (CA1_PROC) #define VMIFLAGS_I_CALL VIF_BREAK #define VMIARGCOUNT_I_CALL 1 #define VMIARGTYPES_I_CALL CA1_PROC #define VMLCASE_normal_call normal_call #define VMHDECL_normal_call normal_call, 0, (), () #define VMHARGNAMES_normal_call #define VMHARGCOUNT_normal_call 0 #define VMHARGTYPES_normal_call #define VMLCASE_depart_or_retry_continue depart_or_retry_continue #define VMHDECL_depart_or_retry_continue depart_or_retry_continue, 0, (), () #define VMHARGNAMES_depart_or_retry_continue #define VMHARGCOUNT_depart_or_retry_continue 0 #define VMHARGTYPES_depart_or_retry_continue #define VMLCASE_I_DEPART i_depart #define VMIDECL_I_DEPART I_DEPART, VIF_BREAK, 1, (CA1_PROC) #define VMIFLAGS_I_DEPART VIF_BREAK #define VMIARGCOUNT_I_DEPART 1 #define VMIARGTYPES_I_DEPART CA1_PROC #define VMLCASE_I_DEPARTATM i_departatm #define VMIDECL_I_DEPARTATM I_DEPARTATM, VIF_BREAK, 3, (CA1_MODULE, CA1_MODULE, CA1_PROC) #define VMIFLAGS_I_DEPARTATM VIF_BREAK #define VMIARGCOUNT_I_DEPARTATM 3 #define VMIARGTYPES_I_DEPARTATM CA1_MODULE, CA1_MODULE, CA1_PROC #define VMLCASE_I_DEPARTM i_departm #define VMIDECL_I_DEPARTM I_DEPARTM, VIF_BREAK, 2, (CA1_MODULE, CA1_PROC) #define VMIFLAGS_I_DEPARTM VIF_BREAK #define VMIARGCOUNT_I_DEPARTM 2 #define VMIARGTYPES_I_DEPARTM CA1_MODULE, CA1_PROC #define VMLCASE_I_EXIT i_exit #define VMIDECL_I_EXIT I_EXIT, VIF_BREAK, 0, () #define VMIFLAGS_I_EXIT VIF_BREAK #define VMIARGCOUNT_I_EXIT 0 #define VMIARGTYPES_I_EXIT #define VMLCASE_I_EXITFACT i_exitfact #define VMIDECL_I_EXITFACT I_EXITFACT, 0, 0, () #define VMIFLAGS_I_EXITFACT 0 #define VMIARGCOUNT_I_EXITFACT 0 #define VMIARGTYPES_I_EXITFACT #define VMLCASE_exit_checking_wakeup exit_checking_wakeup #define VMHDECL_exit_checking_wakeup exit_checking_wakeup, 0, (), () #define VMHARGNAMES_exit_checking_wakeup #define VMHARGCOUNT_exit_checking_wakeup 0 #define VMHARGTYPES_exit_checking_wakeup #define VMLCASE_I_EXITQUERY i_exitquery #define VMIDECL_I_EXITQUERY I_EXITQUERY, 0, 0, () #define VMIFLAGS_I_EXITQUERY 0 #define VMIARGCOUNT_I_EXITQUERY 0 #define VMIARGTYPES_I_EXITQUERY #define VMLCASE_I_YIELD i_yield #define VMIDECL_I_YIELD I_YIELD, VIF_BREAK, 0, () #define VMIFLAGS_I_YIELD VIF_BREAK #define VMIARGCOUNT_I_YIELD 0 #define VMIARGTYPES_I_YIELD #define VMLCASE_L_NOLCO l_nolco #define VMIDECL_L_NOLCO L_NOLCO, 0, 1, (CA1_JUMP) #define VMIFLAGS_L_NOLCO 0 #define VMIARGCOUNT_L_NOLCO 1 #define VMIARGTYPES_L_NOLCO CA1_JUMP #define VMLCASE_L_VAR l_var #define VMIDECL_L_VAR L_VAR, 0, 2, (CA1_FVAR,CA1_VAR) #define VMIFLAGS_L_VAR 0 #define VMIARGCOUNT_L_VAR 2 #define VMIARGTYPES_L_VAR CA1_FVAR,CA1_VAR #define VMLCASE_L_VOID l_void #define VMIDECL_L_VOID L_VOID, 0, 1, (CA1_FVAR) #define VMIFLAGS_L_VOID 0 #define VMIARGCOUNT_L_VOID 1 #define VMIARGTYPES_L_VOID CA1_FVAR #define VMLCASE_L_ATOM l_atom #define VMIDECL_L_ATOM L_ATOM, 0, 2, (CA1_FVAR,CA1_DATA) #define VMIFLAGS_L_ATOM 0 #define VMIARGCOUNT_L_ATOM 2 #define VMIARGTYPES_L_ATOM CA1_FVAR,CA1_DATA #define VMLCASE_L_NIL l_nil #define VMIDECL_L_NIL L_NIL, 0, 1, (CA1_FVAR) #define VMIFLAGS_L_NIL 0 #define VMIARGCOUNT_L_NIL 1 #define VMIARGTYPES_L_NIL CA1_FVAR #define VMLCASE_L_SMALLINT l_smallint #define VMIDECL_L_SMALLINT L_SMALLINT, 0, 2, (CA1_FVAR,CA1_DATA) #define VMIFLAGS_L_SMALLINT 0 #define VMIARGCOUNT_L_SMALLINT 2 #define VMIARGTYPES_L_SMALLINT CA1_FVAR,CA1_DATA #define VMLCASE_I_LCALL i_lcall #define VMIDECL_I_LCALL I_LCALL, 0, 1, (CA1_PROC) #define VMIFLAGS_I_LCALL 0 #define VMIARGCOUNT_I_LCALL 1 #define VMIARGTYPES_I_LCALL CA1_PROC #define VMLCASE_I_TCALL i_tcall #define VMIDECL_I_TCALL I_TCALL, 0, 0, () #define VMIFLAGS_I_TCALL 0 #define VMIARGCOUNT_I_TCALL 0 #define VMIARGTYPES_I_TCALL #define VMLCASE_I_DET i_det #define VMIDECL_I_DET I_DET, VIF_BREAK, 0, () #define VMIFLAGS_I_DET VIF_BREAK #define VMIARGCOUNT_I_DET 0 #define VMIARGTYPES_I_DET #define VMLCASE_I_CUT i_cut #define VMIDECL_I_CUT I_CUT, VIF_BREAK, 0, () #define VMIFLAGS_I_CUT VIF_BREAK #define VMIARGCOUNT_I_CUT 0 #define VMIARGTYPES_I_CUT #define VMLCASE_C_JMP c_jmp #define VMIDECL_C_JMP C_JMP, 0, 1, (CA1_JUMP) #define VMIFLAGS_C_JMP 0 #define VMIARGCOUNT_C_JMP 1 #define VMIARGTYPES_C_JMP CA1_JUMP #define VMLCASE_C_OR c_or #define VMIDECL_C_OR C_OR, 0, 1, (CA1_JUMP) #define VMIFLAGS_C_OR 0 #define VMIARGCOUNT_C_OR 1 #define VMIARGTYPES_C_OR CA1_JUMP #define VMLCASE_C_SOFTIFTHEN c_softifthen #define VMIDECL_C_SOFTIFTHEN C_SOFTIFTHEN, 0, 1, (CA1_CHP) #define VMIFLAGS_C_SOFTIFTHEN 0 #define VMIARGCOUNT_C_SOFTIFTHEN 1 #define VMIARGTYPES_C_SOFTIFTHEN CA1_CHP #define VMLCASE_C_IFTHEN c_ifthen #define VMIDECL_C_IFTHEN C_IFTHEN, 0, 1, (CA1_CHP) #define VMIFLAGS_C_IFTHEN 0 #define VMIARGCOUNT_C_IFTHEN 1 #define VMIARGTYPES_C_IFTHEN CA1_CHP #define VMLCASE_C_DET c_det #define VMIDECL_C_DET C_DET, 0, 2, (CA1_CHP,CA1_JUMP) #define VMIFLAGS_C_DET 0 #define VMIARGCOUNT_C_DET 2 #define VMIARGTYPES_C_DET CA1_CHP,CA1_JUMP #define VMLCASE_C_DETTRUE c_dettrue #define VMIDECL_C_DETTRUE C_DETTRUE, 0, 1, (CA1_CHP) #define VMIFLAGS_C_DETTRUE 0 #define VMIARGCOUNT_C_DETTRUE 1 #define VMIARGTYPES_C_DETTRUE CA1_CHP #define VMLCASE_C_DETFALSE c_detfalse #define VMIDECL_C_DETFALSE C_DETFALSE, 0, 0, () #define VMIFLAGS_C_DETFALSE 0 #define VMIARGCOUNT_C_DETFALSE 0 #define VMIARGTYPES_C_DETFALSE #define VMLCASE_C_NOT c_not #define VMIDECL_C_NOT C_NOT, 0, 2, (CA1_CHP,CA1_JUMP) #define VMIFLAGS_C_NOT 0 #define VMIARGCOUNT_C_NOT 2 #define VMIARGTYPES_C_NOT CA1_CHP,CA1_JUMP #define VMLCASE_C_IFTHENELSE c_ifthenelse #define VMIDECL_C_IFTHENELSE C_IFTHENELSE, 0, 2, (CA1_CHP,CA1_JUMP) #define VMIFLAGS_C_IFTHENELSE 0 #define VMIARGCOUNT_C_IFTHENELSE 2 #define VMIARGTYPES_C_IFTHENELSE CA1_CHP,CA1_JUMP #define VMLCASE_C_FASTCOND c_fastcond #define VMIDECL_C_FASTCOND C_FASTCOND, 0, 2, (CA1_CHP,CA1_JUMP) #define VMIFLAGS_C_FASTCOND 0 #define VMIARGCOUNT_C_FASTCOND 2 #define VMIARGTYPES_C_FASTCOND CA1_CHP,CA1_JUMP #define VMLCASE_C_FASTCUT c_fastcut #define VMIDECL_C_FASTCUT C_FASTCUT, 0, 1, (CA1_CHP) #define VMIFLAGS_C_FASTCUT 0 #define VMIARGCOUNT_C_FASTCUT 1 #define VMIARGTYPES_C_FASTCUT CA1_CHP #define VMLCASE_C_VAR c_var #define VMIDECL_C_VAR C_VAR, 0, 1, (CA1_FVAR) #define VMIFLAGS_C_VAR 0 #define VMIARGCOUNT_C_VAR 1 #define VMIARGTYPES_C_VAR CA1_FVAR #define VMLCASE_C_VAR_N c_var_n #define VMIDECL_C_VAR_N C_VAR_N, 0, 2, (CA1_FVAR,CA1_INTEGER) #define VMIFLAGS_C_VAR_N 0 #define VMIARGCOUNT_C_VAR_N 2 #define VMIARGTYPES_C_VAR_N CA1_FVAR,CA1_INTEGER #define VMLCASE_C_LSCUT c_lscut #define VMIDECL_C_LSCUT C_LSCUT, 0, 1, (CA1_CHP) #define VMIFLAGS_C_LSCUT 0 #define VMIARGCOUNT_C_LSCUT 1 #define VMIARGTYPES_C_LSCUT CA1_CHP #define VMLCASE_C_LCUT c_lcut #define VMIDECL_C_LCUT C_LCUT, 0, 1, (CA1_CHP) #define VMIFLAGS_C_LCUT 0 #define VMIARGCOUNT_C_LCUT 1 #define VMIARGTYPES_C_LCUT CA1_CHP #define VMLCASE_c_lcut_cont c_lcut_cont #define VMHDECL_c_lcut_cont c_lcut_cont, 1, (Choice), (och) #define VMHARGNAMES_c_lcut_cont och #define VMHARGCOUNT_c_lcut_cont 1 #define VMHARGTYPES_c_lcut_cont Choice #define VMLCASE_I_CUTCHP i_cutchp #define VMIDECL_I_CUTCHP I_CUTCHP, 0, 0, () #define VMIFLAGS_I_CUTCHP 0 #define VMIARGCOUNT_I_CUTCHP 0 #define VMIARGTYPES_I_CUTCHP #define VMLCASE_C_SCUT c_scut #define VMIDECL_C_SCUT C_SCUT, 0, 0, () #define VMIFLAGS_C_SCUT 0 #define VMIARGCOUNT_C_SCUT 0 #define VMIARGTYPES_C_SCUT #define VMLCASE_C_LCUTIFTHEN c_lcutifthen #define VMIDECL_C_LCUTIFTHEN C_LCUTIFTHEN, 0, 1, (CA1_CHP) #define VMIFLAGS_C_LCUTIFTHEN 0 #define VMIARGCOUNT_C_LCUTIFTHEN 1 #define VMIARGTYPES_C_LCUTIFTHEN CA1_CHP #define VMLCASE_C_CUT c_cut #define VMIDECL_C_CUT C_CUT, 0, 1, (CA1_CHP) #define VMIFLAGS_C_CUT 0 #define VMIARGCOUNT_C_CUT 1 #define VMIARGTYPES_C_CUT CA1_CHP #define VMLCASE_c_cut c_cut #define VMHDECL_c_cut c_cut, 1, (Choice), (och) #define VMHARGNAMES_c_cut och #define VMHARGCOUNT_c_cut 1 #define VMHARGTYPES_c_cut Choice #define VMLCASE_C_SOFTIF c_softif #define VMIDECL_C_SOFTIF C_SOFTIF, 0, 2, (CA1_CHP,CA1_JUMP) #define VMIFLAGS_C_SOFTIF 0 #define VMIARGCOUNT_C_SOFTIF 2 #define VMIARGTYPES_C_SOFTIF CA1_CHP,CA1_JUMP #define VMLCASE_C_SOFTCUT c_softcut #define VMIDECL_C_SOFTCUT C_SOFTCUT, 0, 1, (CA1_CHP) #define VMIFLAGS_C_SOFTCUT 0 #define VMIARGCOUNT_C_SOFTCUT 1 #define VMIARGTYPES_C_SOFTCUT CA1_CHP #define VMLCASE_C_END c_end #define VMIDECL_C_END C_END, 0, 0, () #define VMIFLAGS_C_END 0 #define VMIARGCOUNT_C_END 0 #define VMIARGTYPES_C_END #define VMLCASE_C_FAIL c_fail #define VMIDECL_C_FAIL C_FAIL, 0, 0, () #define VMIFLAGS_C_FAIL 0 #define VMIARGCOUNT_C_FAIL 0 #define VMIARGTYPES_C_FAIL #define VMLCASE_I_FAIL i_fail #define VMIDECL_I_FAIL I_FAIL, VIF_BREAK, 0, () #define VMIFLAGS_I_FAIL VIF_BREAK #define VMIARGCOUNT_I_FAIL 0 #define VMIARGTYPES_I_FAIL #define VMLCASE_I_TRUE i_true #define VMIDECL_I_TRUE I_TRUE, VIF_BREAK, 0, () #define VMIFLAGS_I_TRUE VIF_BREAK #define VMIARGCOUNT_I_TRUE 0 #define VMIARGTYPES_I_TRUE #define VMLCASE_I_VAR i_var #define VMIDECL_I_VAR I_VAR, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_VAR VIF_BREAK #define VMIARGCOUNT_I_VAR 1 #define VMIARGTYPES_I_VAR CA1_VAR #define VMLCASE_debug_pred1 debug_pred1 #define VMHDECL_debug_pred1 debug_pred1, 2, (functor_t, Word), (fpred, p) #define VMHARGNAMES_debug_pred1 fpred, p #define VMHARGCOUNT_debug_pred1 2 #define VMHARGTYPES_debug_pred1 functor_t, Word #define VMLCASE_I_NONVAR i_nonvar #define VMIDECL_I_NONVAR I_NONVAR, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_NONVAR VIF_BREAK #define VMIARGCOUNT_I_NONVAR 1 #define VMIARGTYPES_I_NONVAR CA1_VAR #define VMLCASE_I_INTEGER i_integer #define VMIDECL_I_INTEGER I_INTEGER, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_INTEGER VIF_BREAK #define VMIARGCOUNT_I_INTEGER 1 #define VMIARGTYPES_I_INTEGER CA1_VAR #define VMLCASE_I_RATIONAL i_rational #define VMIDECL_I_RATIONAL I_RATIONAL, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_RATIONAL VIF_BREAK #define VMIARGCOUNT_I_RATIONAL 1 #define VMIARGTYPES_I_RATIONAL CA1_VAR #define VMLCASE_I_FLOAT i_float #define VMIDECL_I_FLOAT I_FLOAT, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_FLOAT VIF_BREAK #define VMIARGCOUNT_I_FLOAT 1 #define VMIARGTYPES_I_FLOAT CA1_VAR #define VMLCASE_I_NUMBER i_number #define VMIDECL_I_NUMBER I_NUMBER, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_NUMBER VIF_BREAK #define VMIARGCOUNT_I_NUMBER 1 #define VMIARGTYPES_I_NUMBER CA1_VAR #define VMLCASE_I_ATOMIC i_atomic #define VMIDECL_I_ATOMIC I_ATOMIC, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_ATOMIC VIF_BREAK #define VMIARGCOUNT_I_ATOMIC 1 #define VMIARGTYPES_I_ATOMIC CA1_VAR #define VMLCASE_I_ATOM i_atom #define VMIDECL_I_ATOM I_ATOM, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_ATOM VIF_BREAK #define VMIARGCOUNT_I_ATOM 1 #define VMIARGTYPES_I_ATOM CA1_VAR #define VMLCASE_I_STRING i_string #define VMIDECL_I_STRING I_STRING, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_STRING VIF_BREAK #define VMIARGCOUNT_I_STRING 1 #define VMIARGTYPES_I_STRING CA1_VAR #define VMLCASE_I_COMPOUND i_compound #define VMIDECL_I_COMPOUND I_COMPOUND, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_COMPOUND VIF_BREAK #define VMIARGCOUNT_I_COMPOUND 1 #define VMIARGTYPES_I_COMPOUND CA1_VAR #define VMLCASE_I_CALLABLE i_callable #define VMIDECL_I_CALLABLE I_CALLABLE, VIF_BREAK, 1, (CA1_VAR) #define VMIFLAGS_I_CALLABLE VIF_BREAK #define VMIARGCOUNT_I_CALLABLE 1 #define VMIARGTYPES_I_CALLABLE CA1_VAR #define VMLCASE_S_VIRGIN s_virgin #define VMIDECL_S_VIRGIN S_VIRGIN, 0, 0, () #define VMIFLAGS_S_VIRGIN 0 #define VMIARGCOUNT_S_VIRGIN 0 #define VMIARGTYPES_S_VIRGIN #define VMLCASE_S_UNDEF s_undef #define VMIDECL_S_UNDEF S_UNDEF, 0, 0, () #define VMIFLAGS_S_UNDEF 0 #define VMIARGCOUNT_S_UNDEF 0 #define VMIARGTYPES_S_UNDEF #define VMLCASE_S_STATIC s_static #define VMIDECL_S_STATIC S_STATIC, 0, 0, () #define VMIFLAGS_S_STATIC 0 #define VMIARGCOUNT_S_STATIC 0 #define VMIARGTYPES_S_STATIC #define VMLCASE_S_DYNAMIC s_dynamic #define VMIDECL_S_DYNAMIC S_DYNAMIC, 0, 0, () #define VMIFLAGS_S_DYNAMIC 0 #define VMIARGCOUNT_S_DYNAMIC 0 #define VMIARGTYPES_S_DYNAMIC #define VMLCASE_S_THREAD_LOCAL s_thread_local #define VMIDECL_S_THREAD_LOCAL S_THREAD_LOCAL, 0, 0, () #define VMIFLAGS_S_THREAD_LOCAL 0 #define VMIARGCOUNT_S_THREAD_LOCAL 0 #define VMIARGTYPES_S_THREAD_LOCAL #define VMLCASE_S_INCR_DYNAMIC s_incr_dynamic #define VMIDECL_S_INCR_DYNAMIC S_INCR_DYNAMIC, 0, 0, () #define VMIFLAGS_S_INCR_DYNAMIC 0 #define VMIARGCOUNT_S_INCR_DYNAMIC 0 #define VMIARGTYPES_S_INCR_DYNAMIC #define VMLCASE_S_WRAP s_wrap #define VMIDECL_S_WRAP S_WRAP, 0, 0, () #define VMIFLAGS_S_WRAP 0 #define VMIARGCOUNT_S_WRAP 0 #define VMIARGTYPES_S_WRAP #define VMLCASE_S_MULTIFILE s_multifile #define VMIDECL_S_MULTIFILE S_MULTIFILE, 0, 0, () #define VMIFLAGS_S_MULTIFILE 0 #define VMIARGCOUNT_S_MULTIFILE 0 #define VMIARGTYPES_S_MULTIFILE #define VMLCASE_S_TRUSTME s_trustme #define VMIDECL_S_TRUSTME S_TRUSTME, 0, 1, (CA1_CLAUSEREF) #define VMIFLAGS_S_TRUSTME 0 #define VMIARGCOUNT_S_TRUSTME 1 #define VMIARGTYPES_S_TRUSTME CA1_CLAUSEREF #define VMLCASE_S_CALLWRAPPER s_callwrapper #define VMIDECL_S_CALLWRAPPER S_CALLWRAPPER, 0, 3, (CA1_CLAUSEREF,CA1_DATA,CA1_DATA) #define VMIFLAGS_S_CALLWRAPPER 0 #define VMIARGCOUNT_S_CALLWRAPPER 3 #define VMIARGTYPES_S_CALLWRAPPER CA1_CLAUSEREF,CA1_DATA,CA1_DATA #define VMLCASE_S_ALLCLAUSES s_allclauses #define VMIDECL_S_ALLCLAUSES S_ALLCLAUSES, 0, 0, () #define VMIFLAGS_S_ALLCLAUSES 0 #define VMIARGCOUNT_S_ALLCLAUSES 0 #define VMIARGTYPES_S_ALLCLAUSES #define VMLCASE_next_clause next_clause #define VMHDECL_next_clause next_clause, 1, (ClauseRef), (cref) #define VMHARGNAMES_next_clause cref #define VMHARGCOUNT_next_clause 1 #define VMHARGTYPES_next_clause ClauseRef #define VMLCASE_S_NEXTCLAUSE s_nextclause #define VMIDECL_S_NEXTCLAUSE S_NEXTCLAUSE, 0, 0, () #define VMIFLAGS_S_NEXTCLAUSE 0 #define VMIARGCOUNT_S_NEXTCLAUSE 0 #define VMIARGTYPES_S_NEXTCLAUSE #define VMLCASE_S_LIST s_list #define VMIDECL_S_LIST S_LIST, 0, 2, (CA1_CLAUSEREF, CA1_CLAUSEREF) #define VMIFLAGS_S_LIST 0 #define VMIARGCOUNT_S_LIST 2 #define VMIARGTYPES_S_LIST CA1_CLAUSEREF, CA1_CLAUSEREF #define VMLCASE_S_MQUAL s_mqual #define VMIDECL_S_MQUAL S_MQUAL, 0, 1, (CA1_VAR) #define VMIFLAGS_S_MQUAL 0 #define VMIARGCOUNT_S_MQUAL 1 #define VMIARGTYPES_S_MQUAL CA1_VAR #define VMLCASE_S_LMQUAL s_lmqual #define VMIDECL_S_LMQUAL S_LMQUAL, 0, 1, (CA1_VAR) #define VMIFLAGS_S_LMQUAL 0 #define VMIARGCOUNT_S_LMQUAL 1 #define VMIARGTYPES_S_LMQUAL CA1_VAR #define VMLCASE_S_SSU_DET s_ssu_det #define VMIDECL_S_SSU_DET S_SSU_DET, 0, 0, () #define VMIFLAGS_S_SSU_DET 0 #define VMIARGCOUNT_S_SSU_DET 0 #define VMIARGTYPES_S_SSU_DET #define VMLCASE_S_DET s_det #define VMIDECL_S_DET S_DET, 0, 0, () #define VMIFLAGS_S_DET 0 #define VMIARGCOUNT_S_DET 0 #define VMIARGTYPES_S_DET #define VMLCASE_A_ENTER a_enter #define VMIDECL_A_ENTER A_ENTER, 0, 0, () #define VMIFLAGS_A_ENTER 0 #define VMIARGCOUNT_A_ENTER 0 #define VMIARGTYPES_A_ENTER #define VMLCASE_A_INTEGER a_integer #define VMIDECL_A_INTEGER A_INTEGER, 0, 1, (CA1_INTEGER) #define VMIFLAGS_A_INTEGER 0 #define VMIARGCOUNT_A_INTEGER 1 #define VMIARGTYPES_A_INTEGER CA1_INTEGER #define VMLCASE_A_INT64 a_int64 #define VMIDECL_A_INT64 A_INT64, 0, WORDS_PER_INT64, (CA1_INT64) #define VMIFLAGS_A_INT64 0 #define VMIARGCOUNT_A_INT64 WORDS_PER_INT64 #define VMIARGTYPES_A_INT64 CA1_INT64 #define VMLCASE_A_MPZ a_mpz #define VMIDECL_A_MPZ A_MPZ, 0, VM_DYNARGC, (CA1_MPZ) #define VMIFLAGS_A_MPZ 0 #define VMIARGCOUNT_A_MPZ VM_DYNARGC #define VMIARGTYPES_A_MPZ CA1_MPZ #define VMLCASE_A_MPQ a_mpq #define VMIDECL_A_MPQ A_MPQ, 0, VM_DYNARGC, (CA1_MPQ) #define VMIFLAGS_A_MPQ 0 #define VMIARGCOUNT_A_MPQ VM_DYNARGC #define VMIARGTYPES_A_MPQ CA1_MPQ #define VMLCASE_A_DOUBLE a_double #define VMIDECL_A_DOUBLE A_DOUBLE, 0, WORDS_PER_DOUBLE, (CA1_FLOAT) #define VMIFLAGS_A_DOUBLE 0 #define VMIARGCOUNT_A_DOUBLE WORDS_PER_DOUBLE #define VMIARGTYPES_A_DOUBLE CA1_FLOAT #define VMLCASE_A_VAR a_var #define VMIDECL_A_VAR A_VAR, 0, 1, (CA1_VAR) #define VMIFLAGS_A_VAR 0 #define VMIARGCOUNT_A_VAR 1 #define VMIARGTYPES_A_VAR CA1_VAR #define VMLCASE_a_var_n a_var_n #define VMHDECL_a_var_n a_var_n, 1, (int), (offset) #define VMHARGNAMES_a_var_n offset #define VMHARGCOUNT_a_var_n 1 #define VMHARGTYPES_a_var_n int #define VMLCASE_A_VAR0 a_var0 #define VMIDECL_A_VAR0 A_VAR0, 0, 0, () #define VMIFLAGS_A_VAR0 0 #define VMIARGCOUNT_A_VAR0 0 #define VMIARGTYPES_A_VAR0 #define VMLCASE_A_VAR1 a_var1 #define VMIDECL_A_VAR1 A_VAR1, 0, 0, () #define VMIFLAGS_A_VAR1 0 #define VMIARGCOUNT_A_VAR1 0 #define VMIARGTYPES_A_VAR1 #define VMLCASE_A_VAR2 a_var2 #define VMIDECL_A_VAR2 A_VAR2, 0, 0, () #define VMIFLAGS_A_VAR2 0 #define VMIARGCOUNT_A_VAR2 0 #define VMIARGTYPES_A_VAR2 #define VMLCASE_A_FUNC0 a_func0 #define VMIDECL_A_FUNC0 A_FUNC0, 0, 1, (CA1_AFUNC) #define VMIFLAGS_A_FUNC0 0 #define VMIARGCOUNT_A_FUNC0 1 #define VMIARGTYPES_A_FUNC0 CA1_AFUNC #define VMLCASE_A_FUNC1 a_func1 #define VMIDECL_A_FUNC1 A_FUNC1, 0, 1, (CA1_AFUNC) #define VMIFLAGS_A_FUNC1 0 #define VMIARGCOUNT_A_FUNC1 1 #define VMIARGTYPES_A_FUNC1 CA1_AFUNC #define VMLCASE_A_FUNC2 a_func2 #define VMIDECL_A_FUNC2 A_FUNC2, 0, 1, (CA1_AFUNC) #define VMIFLAGS_A_FUNC2 0 #define VMIARGCOUNT_A_FUNC2 1 #define VMIARGTYPES_A_FUNC2 CA1_AFUNC #define VMLCASE_A_FUNC a_func #define VMIDECL_A_FUNC A_FUNC, 0, 2, (CA1_AFUNC, CA1_INTEGER) #define VMIFLAGS_A_FUNC 0 #define VMIARGCOUNT_A_FUNC 2 #define VMIARGTYPES_A_FUNC CA1_AFUNC, CA1_INTEGER #define VMLCASE_common_an common_an #define VMHDECL_common_an common_an, 2, (code, int), (fn, an) #define VMHARGNAMES_common_an fn, an #define VMHARGCOUNT_common_an 2 #define VMHARGTYPES_common_an code, int #define VMLCASE_A_ROUNDTOWARDS_A a_roundtowards_a #define VMIDECL_A_ROUNDTOWARDS_A A_ROUNDTOWARDS_A, 0, 1, (CA1_INTEGER) #define VMIFLAGS_A_ROUNDTOWARDS_A 0 #define VMIARGCOUNT_A_ROUNDTOWARDS_A 1 #define VMIARGTYPES_A_ROUNDTOWARDS_A CA1_INTEGER #define VMLCASE_A_ROUNDTOWARDS_V a_roundtowards_v #define VMIDECL_A_ROUNDTOWARDS_V A_ROUNDTOWARDS_V, 0, 1, (CA1_VAR) #define VMIFLAGS_A_ROUNDTOWARDS_V 0 #define VMIARGCOUNT_A_ROUNDTOWARDS_V 1 #define VMIARGTYPES_A_ROUNDTOWARDS_V CA1_VAR #define VMLCASE_A_ADD a_add #define VMIDECL_A_ADD A_ADD, 0, 0, () #define VMIFLAGS_A_ADD 0 #define VMIARGCOUNT_A_ADD 0 #define VMIARGTYPES_A_ADD #define VMLCASE_A_MUL a_mul #define VMIDECL_A_MUL A_MUL, 0, 0, () #define VMIFLAGS_A_MUL 0 #define VMIARGCOUNT_A_MUL 0 #define VMIARGTYPES_A_MUL #define VMLCASE_A_ADD_FC a_add_fc #define VMIDECL_A_ADD_FC A_ADD_FC, VIF_BREAK, 3, (CA1_FVAR, CA1_VAR, CA1_INTEGER) #define VMIFLAGS_A_ADD_FC VIF_BREAK #define VMIARGCOUNT_A_ADD_FC 3 #define VMIARGTYPES_A_ADD_FC CA1_FVAR, CA1_VAR, CA1_INTEGER #define VMLCASE_A_LT a_lt #define VMIDECL_A_LT A_LT, VIF_BREAK, 0, () #define VMIFLAGS_A_LT VIF_BREAK #define VMIARGCOUNT_A_LT 0 #define VMIARGTYPES_A_LT #define VMLCASE_a_cmp_out a_cmp_out #define VMHDECL_a_cmp_out a_cmp_out, 1, (int), (rc) #define VMHARGNAMES_a_cmp_out rc #define VMHARGCOUNT_a_cmp_out 1 #define VMHARGTYPES_a_cmp_out int #define VMLCASE_A_LE a_le #define VMIDECL_A_LE A_LE, VIF_BREAK, 0, () #define VMIFLAGS_A_LE VIF_BREAK #define VMIARGCOUNT_A_LE 0 #define VMIARGTYPES_A_LE #define VMLCASE_A_GT a_gt #define VMIDECL_A_GT A_GT, VIF_BREAK, 0, () #define VMIFLAGS_A_GT VIF_BREAK #define VMIARGCOUNT_A_GT 0 #define VMIARGTYPES_A_GT #define VMLCASE_A_GE a_ge #define VMIDECL_A_GE A_GE, VIF_BREAK, 0, () #define VMIFLAGS_A_GE VIF_BREAK #define VMIARGCOUNT_A_GE 0 #define VMIARGTYPES_A_GE #define VMLCASE_A_EQ a_eq #define VMIDECL_A_EQ A_EQ, VIF_BREAK, 0, () #define VMIFLAGS_A_EQ VIF_BREAK #define VMIARGCOUNT_A_EQ 0 #define VMIARGTYPES_A_EQ #define VMLCASE_A_NE a_ne #define VMIDECL_A_NE A_NE, VIF_BREAK, 0, () #define VMIFLAGS_A_NE VIF_BREAK #define VMIARGCOUNT_A_NE 0 #define VMIARGTYPES_A_NE #define VMLCASE_A_IS a_is #define VMIDECL_A_IS A_IS, VIF_BREAK, 0, () #define VMIFLAGS_A_IS VIF_BREAK #define VMIARGCOUNT_A_IS 0 #define VMIARGTYPES_A_IS #define VMLCASE_A_FIRSTVAR_IS a_firstvar_is #define VMIDECL_A_FIRSTVAR_IS A_FIRSTVAR_IS, VIF_BREAK, 1, (CA1_FVAR) #define VMIFLAGS_A_FIRSTVAR_IS VIF_BREAK #define VMIARGCOUNT_A_FIRSTVAR_IS 1 #define VMIARGTYPES_A_FIRSTVAR_IS CA1_FVAR #define VMLCASE_I_FOPEN i_fopen #define VMIDECL_I_FOPEN I_FOPEN, 0, 0, () #define VMIFLAGS_I_FOPEN 0 #define VMIARGCOUNT_I_FOPEN 0 #define VMIARGTYPES_I_FOPEN #define VMLCASE_I_FCALLDETVA i_fcalldetva #define VMIDECL_I_FCALLDETVA I_FCALLDETVA, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDETVA 0 #define VMIARGCOUNT_I_FCALLDETVA 1 #define VMIARGTYPES_I_FCALLDETVA CA1_FOREIGN #define VMLCASE_I_FCALLDET0 i_fcalldet0 #define VMIDECL_I_FCALLDET0 I_FCALLDET0, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET0 0 #define VMIARGCOUNT_I_FCALLDET0 1 #define VMIARGTYPES_I_FCALLDET0 CA1_FOREIGN #define VMLCASE_I_FCALLDET1 i_fcalldet1 #define VMIDECL_I_FCALLDET1 I_FCALLDET1, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET1 0 #define VMIARGCOUNT_I_FCALLDET1 1 #define VMIARGTYPES_I_FCALLDET1 CA1_FOREIGN #define VMLCASE_I_FCALLDET2 i_fcalldet2 #define VMIDECL_I_FCALLDET2 I_FCALLDET2, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET2 0 #define VMIARGCOUNT_I_FCALLDET2 1 #define VMIARGTYPES_I_FCALLDET2 CA1_FOREIGN #define VMLCASE_I_FCALLDET3 i_fcalldet3 #define VMIDECL_I_FCALLDET3 I_FCALLDET3, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET3 0 #define VMIARGCOUNT_I_FCALLDET3 1 #define VMIARGTYPES_I_FCALLDET3 CA1_FOREIGN #define VMLCASE_I_FCALLDET4 i_fcalldet4 #define VMIDECL_I_FCALLDET4 I_FCALLDET4, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET4 0 #define VMIARGCOUNT_I_FCALLDET4 1 #define VMIARGTYPES_I_FCALLDET4 CA1_FOREIGN #define VMLCASE_I_FCALLDET5 i_fcalldet5 #define VMIDECL_I_FCALLDET5 I_FCALLDET5, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET5 0 #define VMIARGCOUNT_I_FCALLDET5 1 #define VMIARGTYPES_I_FCALLDET5 CA1_FOREIGN #define VMLCASE_I_FCALLDET6 i_fcalldet6 #define VMIDECL_I_FCALLDET6 I_FCALLDET6, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET6 0 #define VMIARGCOUNT_I_FCALLDET6 1 #define VMIARGTYPES_I_FCALLDET6 CA1_FOREIGN #define VMLCASE_I_FCALLDET7 i_fcalldet7 #define VMIDECL_I_FCALLDET7 I_FCALLDET7, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET7 0 #define VMIARGCOUNT_I_FCALLDET7 1 #define VMIARGTYPES_I_FCALLDET7 CA1_FOREIGN #define VMLCASE_I_FCALLDET8 i_fcalldet8 #define VMIDECL_I_FCALLDET8 I_FCALLDET8, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET8 0 #define VMIARGCOUNT_I_FCALLDET8 1 #define VMIARGTYPES_I_FCALLDET8 CA1_FOREIGN #define VMLCASE_I_FCALLDET9 i_fcalldet9 #define VMIDECL_I_FCALLDET9 I_FCALLDET9, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET9 0 #define VMIARGCOUNT_I_FCALLDET9 1 #define VMIARGTYPES_I_FCALLDET9 CA1_FOREIGN #define VMLCASE_I_FCALLDET10 i_fcalldet10 #define VMIDECL_I_FCALLDET10 I_FCALLDET10, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLDET10 0 #define VMIARGCOUNT_I_FCALLDET10 1 #define VMIARGTYPES_I_FCALLDET10 CA1_FOREIGN #define VMLCASE_I_FEXITDET i_fexitdet #define VMIDECL_I_FEXITDET I_FEXITDET, 0, 0, () #define VMIFLAGS_I_FEXITDET 0 #define VMIARGCOUNT_I_FEXITDET 0 #define VMIARGTYPES_I_FEXITDET #define VMLCASE_I_FEXITDET i_fexitdet #define VMHDECL_I_FEXITDET I_FEXITDET, 1, (word), (rc) #define VMHARGNAMES_I_FEXITDET rc #define VMHARGCOUNT_I_FEXITDET 1 #define VMHARGTYPES_I_FEXITDET word #define VMLCASE_I_FOPENNDET i_fopenndet #define VMIDECL_I_FOPENNDET I_FOPENNDET, 0, 0, () #define VMIFLAGS_I_FOPENNDET 0 #define VMIARGCOUNT_I_FOPENNDET 0 #define VMIARGTYPES_I_FOPENNDET #define VMLCASE_foreign_redo foreign_redo #define VMHDECL_foreign_redo foreign_redo, 0, (), () #define VMHARGNAMES_foreign_redo #define VMHARGCOUNT_foreign_redo 0 #define VMHARGTYPES_foreign_redo #define VMLCASE_I_FCALLNDETVA i_fcallndetva #define VMIDECL_I_FCALLNDETVA I_FCALLNDETVA, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDETVA 0 #define VMIARGCOUNT_I_FCALLNDETVA 1 #define VMIARGTYPES_I_FCALLNDETVA CA1_FOREIGN #define VMLCASE_I_FCALLNDET0 i_fcallndet0 #define VMIDECL_I_FCALLNDET0 I_FCALLNDET0, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET0 0 #define VMIARGCOUNT_I_FCALLNDET0 1 #define VMIARGTYPES_I_FCALLNDET0 CA1_FOREIGN #define VMLCASE_I_FCALLNDET1 i_fcallndet1 #define VMIDECL_I_FCALLNDET1 I_FCALLNDET1, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET1 0 #define VMIARGCOUNT_I_FCALLNDET1 1 #define VMIARGTYPES_I_FCALLNDET1 CA1_FOREIGN #define VMLCASE_I_FCALLNDET2 i_fcallndet2 #define VMIDECL_I_FCALLNDET2 I_FCALLNDET2, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET2 0 #define VMIARGCOUNT_I_FCALLNDET2 1 #define VMIARGTYPES_I_FCALLNDET2 CA1_FOREIGN #define VMLCASE_I_FCALLNDET3 i_fcallndet3 #define VMIDECL_I_FCALLNDET3 I_FCALLNDET3, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET3 0 #define VMIARGCOUNT_I_FCALLNDET3 1 #define VMIARGTYPES_I_FCALLNDET3 CA1_FOREIGN #define VMLCASE_I_FCALLNDET4 i_fcallndet4 #define VMIDECL_I_FCALLNDET4 I_FCALLNDET4, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET4 0 #define VMIARGCOUNT_I_FCALLNDET4 1 #define VMIARGTYPES_I_FCALLNDET4 CA1_FOREIGN #define VMLCASE_I_FCALLNDET5 i_fcallndet5 #define VMIDECL_I_FCALLNDET5 I_FCALLNDET5, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET5 0 #define VMIARGCOUNT_I_FCALLNDET5 1 #define VMIARGTYPES_I_FCALLNDET5 CA1_FOREIGN #define VMLCASE_I_FCALLNDET6 i_fcallndet6 #define VMIDECL_I_FCALLNDET6 I_FCALLNDET6, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET6 0 #define VMIARGCOUNT_I_FCALLNDET6 1 #define VMIARGTYPES_I_FCALLNDET6 CA1_FOREIGN #define VMLCASE_I_FCALLNDET7 i_fcallndet7 #define VMIDECL_I_FCALLNDET7 I_FCALLNDET7, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET7 0 #define VMIARGCOUNT_I_FCALLNDET7 1 #define VMIARGTYPES_I_FCALLNDET7 CA1_FOREIGN #define VMLCASE_I_FCALLNDET8 i_fcallndet8 #define VMIDECL_I_FCALLNDET8 I_FCALLNDET8, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET8 0 #define VMIARGCOUNT_I_FCALLNDET8 1 #define VMIARGTYPES_I_FCALLNDET8 CA1_FOREIGN #define VMLCASE_I_FCALLNDET9 i_fcallndet9 #define VMIDECL_I_FCALLNDET9 I_FCALLNDET9, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET9 0 #define VMIARGCOUNT_I_FCALLNDET9 1 #define VMIARGTYPES_I_FCALLNDET9 CA1_FOREIGN #define VMLCASE_I_FCALLNDET10 i_fcallndet10 #define VMIDECL_I_FCALLNDET10 I_FCALLNDET10, 0, 1, (CA1_FOREIGN) #define VMIFLAGS_I_FCALLNDET10 0 #define VMIARGCOUNT_I_FCALLNDET10 1 #define VMIARGTYPES_I_FCALLNDET10 CA1_FOREIGN #define VMLCASE_I_FEXITNDET i_fexitndet #define VMIDECL_I_FEXITNDET I_FEXITNDET, 0, 0, () #define VMIFLAGS_I_FEXITNDET 0 #define VMIARGCOUNT_I_FEXITNDET 0 #define VMIARGTYPES_I_FEXITNDET #define VMLCASE_I_FEXITNDET i_fexitndet #define VMHDECL_I_FEXITNDET I_FEXITNDET, 1, (foreign_t), (rc) #define VMHARGNAMES_I_FEXITNDET rc #define VMHARGCOUNT_I_FEXITNDET 1 #define VMHARGTYPES_I_FEXITNDET foreign_t #define VMLCASE_I_FREDO i_fredo #define VMIDECL_I_FREDO I_FREDO, 0, 0, () #define VMIFLAGS_I_FREDO 0 #define VMIARGCOUNT_I_FREDO 0 #define VMIARGTYPES_I_FREDO #define VMLCASE_I_CALLCLEANUP i_callcleanup #define VMIDECL_I_CALLCLEANUP I_CALLCLEANUP, 0, 0, () #define VMIFLAGS_I_CALLCLEANUP 0 #define VMIARGCOUNT_I_CALLCLEANUP 0 #define VMIARGTYPES_I_CALLCLEANUP #define VMLCASE_I_EXITCLEANUP i_exitcleanup #define VMIDECL_I_EXITCLEANUP I_EXITCLEANUP, 0, 0, () #define VMIFLAGS_I_EXITCLEANUP 0 #define VMIARGCOUNT_I_EXITCLEANUP 0 #define VMIARGTYPES_I_EXITCLEANUP #define VMLCASE_I_CATCH i_catch #define VMIDECL_I_CATCH I_CATCH, 0, 0, () #define VMIFLAGS_I_CATCH 0 #define VMIARGCOUNT_I_CATCH 0 #define VMIARGTYPES_I_CATCH #define VMLCASE_I_EXITCATCH i_exitcatch #define VMIDECL_I_EXITCATCH I_EXITCATCH, 0, 0, () #define VMIFLAGS_I_EXITCATCH 0 #define VMIARGCOUNT_I_EXITCATCH 0 #define VMIARGTYPES_I_EXITCATCH #define VMLCASE_B_THROW b_throw #define VMIDECL_B_THROW B_THROW, 0, 0, () #define VMIFLAGS_B_THROW 0 #define VMIARGCOUNT_B_THROW 0 #define VMIARGTYPES_B_THROW #define VMLCASE_b_throw b_throw #define VMHDECL_b_throw b_throw, 0, (), () #define VMHARGNAMES_b_throw #define VMHARGCOUNT_b_throw 0 #define VMHARGTYPES_b_throw #define VMLCASE_I_CALLATM i_callatm #define VMIDECL_I_CALLATM I_CALLATM, VIF_BREAK, 3, (CA1_MODULE, CA1_MODULE, CA1_PROC) #define VMIFLAGS_I_CALLATM VIF_BREAK #define VMIARGCOUNT_I_CALLATM 3 #define VMIARGTYPES_I_CALLATM CA1_MODULE, CA1_MODULE, CA1_PROC #define VMLCASE_I_DEPARTATMV i_departatmv #define VMIDECL_I_DEPARTATMV I_DEPARTATMV, VIF_BREAK, 3, (CA1_MODULE, CA1_VAR, CA1_PROC) #define VMIFLAGS_I_DEPARTATMV VIF_BREAK #define VMIARGCOUNT_I_DEPARTATMV 3 #define VMIARGTYPES_I_DEPARTATMV CA1_MODULE, CA1_VAR, CA1_PROC #define VMLCASE_I_CALLATMV i_callatmv #define VMIDECL_I_CALLATMV I_CALLATMV, VIF_BREAK, 3, (CA1_MODULE, CA1_VAR, CA1_PROC) #define VMIFLAGS_I_CALLATMV VIF_BREAK #define VMIARGCOUNT_I_CALLATMV 3 #define VMIARGTYPES_I_CALLATMV CA1_MODULE, CA1_VAR, CA1_PROC #define VMLCASE_I_CALLM i_callm #define VMIDECL_I_CALLM I_CALLM, VIF_BREAK, 2, (CA1_MODULE, CA1_PROC) #define VMIFLAGS_I_CALLM VIF_BREAK #define VMIARGCOUNT_I_CALLM 2 #define VMIARGTYPES_I_CALLM CA1_MODULE, CA1_PROC #define VMLCASE_I_USERCALL0 i_usercall0 #define VMIDECL_I_USERCALL0 I_USERCALL0, VIF_BREAK, 0, () #define VMIFLAGS_I_USERCALL0 VIF_BREAK #define VMIARGCOUNT_I_USERCALL0 0 #define VMIARGTYPES_I_USERCALL0 #define VMLCASE_i_usercall_common i_usercall_common #define VMHDECL_i_usercall_common i_usercall_common, 3, (Word, int, bool), (a, callargs, is_call0) #define VMHARGNAMES_i_usercall_common a, callargs, is_call0 #define VMHARGCOUNT_i_usercall_common 3 #define VMHARGTYPES_i_usercall_common Word, int, bool #define VMLCASE_call_type_error call_type_error #define VMHDECL_call_type_error call_type_error, 0, (), () #define VMHARGNAMES_call_type_error #define VMHARGCOUNT_call_type_error 0 #define VMHARGTYPES_call_type_error #define VMLCASE_I_USERCALLN i_usercalln #define VMIDECL_I_USERCALLN I_USERCALLN, VIF_BREAK, 1, (CA1_INTEGER) #define VMIFLAGS_I_USERCALLN VIF_BREAK #define VMIARGCOUNT_I_USERCALLN 1 #define VMIARGTYPES_I_USERCALLN CA1_INTEGER #define VMLCASE_max_arity_overflow max_arity_overflow #define VMHDECL_max_arity_overflow max_arity_overflow, 0, (), () #define VMHARGNAMES_max_arity_overflow #define VMHARGCOUNT_max_arity_overflow 0 #define VMHARGTYPES_max_arity_overflow #define VMLCASE_mcall_cont mcall_cont #define VMHDECL_mcall_cont mcall_cont, 1, (Module), (module) #define VMHARGNAMES_mcall_cont module #define VMHARGCOUNT_mcall_cont 1 #define VMHARGTYPES_mcall_cont Module #define VMLCASE_I_RESET i_reset #define VMIDECL_I_RESET I_RESET, 0, 0, () #define VMIFLAGS_I_RESET 0 #define VMIARGCOUNT_I_RESET 0 #define VMIARGTYPES_I_RESET #define VMLCASE_I_EXITRESET i_exitreset #define VMIDECL_I_EXITRESET I_EXITRESET, 0, 0, () #define VMIFLAGS_I_EXITRESET 0 #define VMIARGCOUNT_I_EXITRESET 0 #define VMIARGTYPES_I_EXITRESET #define VMLCASE_I_CALLCONT i_callcont #define VMIDECL_I_CALLCONT I_CALLCONT, 0, 1, (CA1_VAR) #define VMIFLAGS_I_CALLCONT 0 #define VMIARGCOUNT_I_CALLCONT 1 #define VMIARGTYPES_I_CALLCONT CA1_VAR #define VMLCASE_I_SHIFT i_shift #define VMIDECL_I_SHIFT I_SHIFT, 0, 1, (CA1_VAR) #define VMIFLAGS_I_SHIFT 0 #define VMIARGCOUNT_I_SHIFT 1 #define VMIARGTYPES_I_SHIFT CA1_VAR #define VMLCASE_shift_common shift_common #define VMHDECL_shift_common shift_common, 1, (int), (shift_for_copy) #define VMHARGNAMES_shift_common shift_for_copy #define VMHARGCOUNT_shift_common 1 #define VMHARGTYPES_shift_common int #define VMLCASE_I_SHIFTCP i_shiftcp #define VMIDECL_I_SHIFTCP I_SHIFTCP, 0, 1, (CA1_VAR) #define VMIFLAGS_I_SHIFTCP 0 #define VMIARGCOUNT_I_SHIFTCP 1 #define VMIARGTYPES_I_SHIFTCP CA1_VAR #define VMLCASE_S_TRIE_GEN s_trie_gen #define VMIDECL_S_TRIE_GEN S_TRIE_GEN, 0, 0, () #define VMIFLAGS_S_TRIE_GEN 0 #define VMIARGCOUNT_S_TRIE_GEN 0 #define VMIARGTYPES_S_TRIE_GEN #define VMLCASE_T_TRIE_GEN2 t_trie_gen2 #define VMIDECL_T_TRIE_GEN2 T_TRIE_GEN2, 0, 0, () #define VMIFLAGS_T_TRIE_GEN2 0 #define VMIARGCOUNT_T_TRIE_GEN2 0 #define VMIARGTYPES_T_TRIE_GEN2 #define VMLCASE_T_TRIE_GEN3 t_trie_gen3 #define VMIDECL_T_TRIE_GEN3 T_TRIE_GEN3, 0, 0, () #define VMIFLAGS_T_TRIE_GEN3 0 #define VMIARGCOUNT_T_TRIE_GEN3 0 #define VMIARGTYPES_T_TRIE_GEN3 #define VMLCASE_T_VALUE t_value #define VMIDECL_T_VALUE T_VALUE, 0, 0, () #define VMIFLAGS_T_VALUE 0 #define VMIARGCOUNT_T_VALUE 0 #define VMIARGTYPES_T_VALUE #define VMLCASE_T_DELAY t_delay #define VMIDECL_T_DELAY T_DELAY, 0, 1, (CA1_TRIE_NODE) #define VMIFLAGS_T_DELAY 0 #define VMIARGCOUNT_T_DELAY 1 #define VMIARGTYPES_T_DELAY CA1_TRIE_NODE #define VMLCASE_T_TRY_FUNCTOR t_try_functor #define VMIDECL_T_TRY_FUNCTOR T_TRY_FUNCTOR, 0, 2, (CA1_JUMP,CA1_FUNC) #define VMIFLAGS_T_TRY_FUNCTOR 0 #define VMIARGCOUNT_T_TRY_FUNCTOR 2 #define VMIARGTYPES_T_TRY_FUNCTOR CA1_JUMP,CA1_FUNC #define VMLCASE_T_FUNCTOR t_functor #define VMIDECL_T_FUNCTOR T_FUNCTOR, 0, 1, (CA1_FUNC) #define VMIFLAGS_T_FUNCTOR 0 #define VMIARGCOUNT_T_FUNCTOR 1 #define VMIARGTYPES_T_FUNCTOR CA1_FUNC #define VMLCASE_T_POP t_pop #define VMIDECL_T_POP T_POP, 0, 0, () #define VMIFLAGS_T_POP 0 #define VMIARGCOUNT_T_POP 0 #define VMIARGTYPES_T_POP #define VMLCASE_T_POPN t_popn #define VMIDECL_T_POPN T_POPN, 0, 1, (CA1_INTEGER) #define VMIFLAGS_T_POPN 0 #define VMIARGCOUNT_T_POPN 1 #define VMIARGTYPES_T_POPN CA1_INTEGER #define VMLCASE_T_TRY_VAR t_try_var #define VMIDECL_T_TRY_VAR T_TRY_VAR, 0, 2, (CA1_JUMP,CA1_INTEGER) #define VMIFLAGS_T_TRY_VAR 0 #define VMIARGCOUNT_T_TRY_VAR 2 #define VMIARGTYPES_T_TRY_VAR CA1_JUMP,CA1_INTEGER #define VMLCASE_T_VAR t_var #define VMIDECL_T_VAR T_VAR, 0, 1, (CA1_INTEGER) #define VMIFLAGS_T_VAR 0 #define VMIARGCOUNT_T_VAR 1 #define VMIARGTYPES_T_VAR CA1_INTEGER #define VMLCASE_T_TRY_INTEGER t_try_integer #define VMIDECL_T_TRY_INTEGER T_TRY_INTEGER, 0, 2, (CA1_JUMP,CA1_INTEGER) #define VMIFLAGS_T_TRY_INTEGER 0 #define VMIARGCOUNT_T_TRY_INTEGER 2 #define VMIARGTYPES_T_TRY_INTEGER CA1_JUMP,CA1_INTEGER #define VMLCASE_T_INTEGER t_integer #define VMIDECL_T_INTEGER T_INTEGER, 0, 1, (CA1_INTEGER) #define VMIFLAGS_T_INTEGER 0 #define VMIARGCOUNT_T_INTEGER 1 #define VMIARGTYPES_T_INTEGER CA1_INTEGER #define VMLCASE_T_TRY_INT64 t_try_int64 #define VMIDECL_T_TRY_INT64 T_TRY_INT64, 0, 1+WORDS_PER_INT64, (CA1_JUMP,CA1_INT64) #define VMIFLAGS_T_TRY_INT64 0 #define VMIARGCOUNT_T_TRY_INT64 1+WORDS_PER_INT64 #define VMIARGTYPES_T_TRY_INT64 CA1_JUMP,CA1_INT64 #define VMLCASE_T_INT64 t_int64 #define VMIDECL_T_INT64 T_INT64, 0, WORDS_PER_INT64, (CA1_INT64) #define VMIFLAGS_T_INT64 0 #define VMIARGCOUNT_T_INT64 WORDS_PER_INT64 #define VMIARGTYPES_T_INT64 CA1_INT64 #define VMLCASE_T_TRY_FLOAT t_try_float #define VMIDECL_T_TRY_FLOAT T_TRY_FLOAT, 0, 1+WORDS_PER_DOUBLE, (CA1_JUMP,CA1_FLOAT) #define VMIFLAGS_T_TRY_FLOAT 0 #define VMIARGCOUNT_T_TRY_FLOAT 1+WORDS_PER_DOUBLE #define VMIARGTYPES_T_TRY_FLOAT CA1_JUMP,CA1_FLOAT #define VMLCASE_T_FLOAT t_float #define VMIDECL_T_FLOAT T_FLOAT, 0, WORDS_PER_DOUBLE, (CA1_FLOAT) #define VMIFLAGS_T_FLOAT 0 #define VMIARGCOUNT_T_FLOAT WORDS_PER_DOUBLE #define VMIARGTYPES_T_FLOAT CA1_FLOAT #define VMLCASE_T_TRY_MPZ t_try_mpz #define VMIDECL_T_TRY_MPZ T_TRY_MPZ, 0, VM_DYNARGC, (CA1_JUMP,CA1_MPZ) #define VMIFLAGS_T_TRY_MPZ 0 #define VMIARGCOUNT_T_TRY_MPZ VM_DYNARGC #define VMIARGTYPES_T_TRY_MPZ CA1_JUMP,CA1_MPZ #define VMLCASE_T_MPZ t_mpz #define VMIDECL_T_MPZ T_MPZ, 0, VM_DYNARGC, (CA1_MPZ) #define VMIFLAGS_T_MPZ 0 #define VMIARGCOUNT_T_MPZ VM_DYNARGC #define VMIARGTYPES_T_MPZ CA1_MPZ #define VMLCASE_T_TRY_STRING t_try_string #define VMIDECL_T_TRY_STRING T_TRY_STRING, 0, VM_DYNARGC, (CA1_JUMP,CA1_STRING) #define VMIFLAGS_T_TRY_STRING 0 #define VMIARGCOUNT_T_TRY_STRING VM_DYNARGC #define VMIARGTYPES_T_TRY_STRING CA1_JUMP,CA1_STRING #define VMLCASE_T_STRING t_string #define VMIDECL_T_STRING T_STRING, 0, VM_DYNARGC, (CA1_STRING) #define VMIFLAGS_T_STRING 0 #define VMIARGCOUNT_T_STRING VM_DYNARGC #define VMIARGTYPES_T_STRING CA1_STRING #define VMLCASE_T_TRY_ATOM t_try_atom #define VMIDECL_T_TRY_ATOM T_TRY_ATOM, 0, 2, (CA1_JUMP,CA1_DATA) #define VMIFLAGS_T_TRY_ATOM 0 #define VMIARGCOUNT_T_TRY_ATOM 2 #define VMIARGTYPES_T_TRY_ATOM CA1_JUMP,CA1_DATA #define VMLCASE_T_ATOM t_atom #define VMIDECL_T_ATOM T_ATOM, 0, 1, (CA1_DATA) #define VMIFLAGS_T_ATOM 0 #define VMIARGCOUNT_T_ATOM 1 #define VMIARGTYPES_T_ATOM CA1_DATA #define VMLCASE_T_TRY_SMALLINT t_try_smallint #define VMIDECL_T_TRY_SMALLINT T_TRY_SMALLINT, 0, 2, (CA1_JUMP,CA1_DATA) #define VMIFLAGS_T_TRY_SMALLINT 0 #define VMIARGCOUNT_T_TRY_SMALLINT 2 #define VMIARGTYPES_T_TRY_SMALLINT CA1_JUMP,CA1_DATA #define VMLCASE_T_SMALLINT t_smallint #define VMIDECL_T_SMALLINT T_SMALLINT, 0, 1, (CA1_DATA) #define VMIFLAGS_T_SMALLINT 0 #define VMIARGCOUNT_T_SMALLINT 1 #define VMIARGTYPES_T_SMALLINT CA1_DATA #define VMLCASE_t_const t_const #define VMHDECL_t_const t_const, 1, (word), (c) #define VMHARGNAMES_t_const c #define VMHARGCOUNT_t_const 1 #define VMHARGTYPES_t_const word #define VMLCASE_shallow_backtrack shallow_backtrack #define VMHDECL_shallow_backtrack shallow_backtrack, 0, (), () #define VMHARGNAMES_shallow_backtrack #define VMHARGCOUNT_shallow_backtrack 0 #define VMHARGTYPES_shallow_backtrack #define VMLCASE_deep_backtrack deep_backtrack #define VMHDECL_deep_backtrack deep_backtrack, 0, (), () #define VMHARGNAMES_deep_backtrack #define VMHARGCOUNT_deep_backtrack 0 #define VMHARGTYPES_deep_backtrack