mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

RTL VM: Rename 'apply' instruction to 'tail-apply'.

Browse source 
* libguile/vm-engine.c (apply, tail-apply): apply -> tail-apply.
  (RETURN_VALUE_LIST): goto op_apply -> goto op_tail_apply.

* libguile/vm.c (rtl_apply_code): scm_rtl_op_apply ->
  scm_rtl_op_tail_apply.
This commit is contained in:
Mark H Weaver 2013-08-17 05:37:45 -04:00 • committed by Andy Wingo
parent e79ed6b1d7
commit adb8d905df
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm-engine.c
View file

@ -664,7 +664,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
fp[1] = vals; \
RESET_FRAME (3); \
ip = (scm_t_uint32 *) rtl_apply_code; \
goto op_apply; \
goto op_tail_apply; \
} while (0)
#define BR_NARGS(rel) \
@ -1282,13 +1282,13 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
NEXT (0);
}
/* apply _:24
/* tail-apply _:24
*
* Tail-apply the procedure in local slot 0 to the rest of the
* arguments. This instruction is part of the implementation of
* `apply', and is not generated by the compiler.
*/
VM_DEFINE_OP (11, apply, "apply", OP1 (U8_X24))
VM_DEFINE_OP (11, tail_apply, "tail-apply", OP1 (U8_X24))
{
int i, list_idx, list_len, nargs;
SCM list;

2
libguile/vm.c
View file

@ -603,7 +603,7 @@ static const scm_t_uint32 rtl_boot_continuation_code[] = {
};
static const scm_t_uint32 rtl_apply_code[] = {
SCM_PACK_RTL_24 (scm_rtl_op_apply, 0) /* proc in r1, args from r2, nargs set */
SCM_PACK_RTL_24 (scm_rtl_op_tail_apply, 0) /* proc in r1, args from r2, nargs set */
};
static const scm_t_uint32 rtl_values_code[] = {