mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +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

38
libguile/gsubr.c
View file

@ -75,45 +75,45 @@
/* A: req; B: opt; C: rest */
#define A(nreq) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ee, nreq + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, nreq + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define B(nopt) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_le, nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_alloc_frame, nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_assert_nargs_le, nopt + 1), \
SCM_PACK_RTL_24 (scm_op_alloc_frame, nopt + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0
#define C() \
SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_bind_rest, 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define AB(nreq, nopt) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_le, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_alloc_frame, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0)
SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_op_assert_nargs_le, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_op_alloc_frame, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0)
#define AC(nreq) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nreq + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_op_bind_rest, nreq + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0
#define BC(nopt) \
SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_bind_rest, nopt + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define ABC(nreq, nopt) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \
SCM_PACK_RTL_24 (scm_op_bind_rest, nreq + nopt + 1), \
SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0