mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

scm_rtl_op_* -> scm_op_*

Browse source 
* libguile/instructions.h (scm_opcode): Rename from scm_rtl_opcode.
  Rename opcodes from scm_rtl_op_* to scm_op_*.

* libguile/continuations.c:
* libguile/control.c:
* libguile/foreign.c:
* libguile/gsubr.c:
* libguile/instructions.c:
* libguile/vm.c: Adapt.
This commit is contained in:
Andy Wingo 2013-11-19 20:31:21 +01:00
parent 1b780c134b
commit 3fe96dd808
7 changed files with 42 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

30
libguile/vm.c
View file

@ -600,37 +600,37 @@ static SCM vm_builtin_call_with_values;
static SCM vm_builtin_call_with_current_continuation;
static const scm_t_uint32 vm_boot_continuation_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_halt, 0)
SCM_PACK_RTL_24 (scm_op_halt, 0)
};
static const scm_t_uint32 vm_builtin_apply_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, 3),
SCM_PACK_RTL_24 (scm_rtl_op_tail_apply, 0), /* proc in r1, args from r2 */
SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, 3),
SCM_PACK_RTL_24 (scm_op_tail_apply, 0), /* proc in r1, args from r2 */
};
static const scm_t_uint32 vm_builtin_values_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_return_values, 0) /* vals from r1 */
SCM_PACK_RTL_24 (scm_op_return_values, 0) /* vals from r1 */
};
static const scm_t_uint32 vm_builtin_abort_to_prompt_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, 2),
SCM_PACK_RTL_24 (scm_rtl_op_abort, 0), /* tag in r1, vals from r2 */
SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, 2),
SCM_PACK_RTL_24 (scm_op_abort, 0), /* tag in r1, vals from r2 */
/* FIXME: Partial continuation should capture caller regs. */
SCM_PACK_RTL_24 (scm_rtl_op_return_values, 0) /* vals from r1 */
SCM_PACK_RTL_24 (scm_op_return_values, 0) /* vals from r1 */
};
static const scm_t_uint32 vm_builtin_call_with_values_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ee, 3),
SCM_PACK_RTL_24 (scm_rtl_op_alloc_frame, 7),
SCM_PACK_RTL_12_12 (scm_rtl_op_mov, 6, 1),
SCM_PACK_RTL_24 (scm_rtl_op_call, 6), SCM_PACK_RTL_24 (0, 1),
SCM_PACK_RTL_12_12 (scm_rtl_op_mov, 0, 2),
SCM_PACK_RTL_24 (scm_rtl_op_tail_call_shuffle, 7)
SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, 3),
SCM_PACK_RTL_24 (scm_op_alloc_frame, 7),
SCM_PACK_RTL_12_12 (scm_op_mov, 6, 1),
SCM_PACK_RTL_24 (scm_op_call, 6), SCM_PACK_RTL_24 (0, 1),
SCM_PACK_RTL_12_12 (scm_op_mov, 0, 2),
SCM_PACK_RTL_24 (scm_op_tail_call_shuffle, 7)
};
static const scm_t_uint32 vm_builtin_call_with_current_continuation_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ee, 2),
SCM_PACK_RTL_24 (scm_rtl_op_call_cc, 0)
SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, 2),
SCM_PACK_RTL_24 (scm_op_call_cc, 0)
};