1 /* Copyright (C) 2001, 2009, 2012, 2013 Free Software Foundation, Inc.
3 * This library is free software; you can redistribute it and/or
4 * modify it under the terms of the GNU Lesser General Public License
5 * as published by the Free Software Foundation; either version 3 of
6 * the License, or (at your option) any later version.
8 * This library is distributed in the hope that it will be useful, but
9 * WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * Lesser General Public License for more details.
13 * You should have received a copy of the GNU Lesser General Public
14 * License along with this library; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19 #ifndef _SCM_INSTRUCTIONS_H_
20 #define _SCM_INSTRUCTIONS_H_
23 #include <libguile/vm-operations.h>
27 #define ENUM(opcode, tag, name, meta) scm_rtl_op_##tag = opcode,
28 FOR_EACH_VM_OPERATION(ENUM
)
32 #define SCM_PACK_RTL_8_8_8(op,a,b,c) ((op) | ((a) << 8) | ((b) << 16) | ((c) << 24))
33 #define SCM_PACK_RTL_8_16(op,a,b) ((op) | ((a) << 8) | ((b) << 16))
34 #define SCM_PACK_RTL_16_8(op,a,b) ((op) | ((a) << 8) | ((b) << 24))
35 #define SCM_PACK_RTL_12_12(op,a,b) ((op) | ((a) << 8) | ((b) << 20))
36 #define SCM_PACK_RTL_24(op,a) ((op) | ((a) << 8))
38 #define SCM_UNPACK_RTL_8_8_8(op,a,b,c) \
41 a = (op >> 8) & 0xff; \
42 b = (op >> 16) & 0xff; \
47 #define SCM_UNPACK_RTL_8_16(op,a,b) \
50 a = (op >> 8) & 0xff; \
55 #define SCM_UNPACK_RTL_16_8(op,a,b) \
58 a = (op >> 8) & 0xffff; \
63 #define SCM_UNPACK_RTL_12_12(op,a,b) \
66 a = (op >> 8) & 0xfff; \
71 #define SCM_UNPACK_RTL_24(op,a) \
78 #define SCM_VM_NUM_INSTRUCTIONS (1<<8)
79 #define SCM_VM_INSTRUCTION_MASK (SCM_VM_NUM_INSTRUCTIONS-1)
81 SCM_INTERNAL SCM
scm_instruction_list (void);
83 SCM_INTERNAL
void scm_bootstrap_instructions (void);
84 SCM_INTERNAL
void scm_init_instructions (void);
86 #endif /* _SCM_INSTRUCTIONS_H_ */