mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

6
libguile/foreign.c
View file

@ -766,10 +766,10 @@ SCM_DEFINE (scm_pointer_to_procedure, "pointer->procedure", 3, 0, 0,
/* We support calling foreign functions with up to 100 arguments. */
#define CODE(nreq) \
SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ee, nreq + 1), \
SCM_PACK_RTL_12_12 (scm_rtl_op_foreign_call, 0, 1)
SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, nreq + 1), \
SCM_PACK_RTL_12_12 (scm_op_foreign_call, 0, 1)
#define CODE_10(n) \
#define CODE_10(n) \
CODE (n + 0), CODE (n + 1), CODE (n + 2), CODE (n + 3), CODE (n + 4), \
CODE (n + 5), CODE (n + 6), CODE (n + 7), CODE (n + 8), CODE (n + 9)