From 095100bbdbfc79ccba39fa68b75d8530361299d3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 19 Nov 2013 21:04:24 +0100 Subject: Change SCM_PACK_RTL macros to SCM_PACK_OP / SCM_PACK_OP_ARG * libguile/instructions.h: Guard in BUILDING_LIBGUILE. (SCM_PACK_OP_24): (SCM_PACK_OP_8_8_8): (SCM_PACK_OP_8_16): (SCM_PACK_OP_16_8): (SCM_PACK_OP_12_12): Rename from SCM_PACK_RTL_*, and splice in the opcode. (SCM_PACK_OP_ARG_8_24): New helper. * libguile/vm.c: * libguile/gsubr.c: * libguile/foreign.c: * libguile/control.c: * libguile/continuations.c: Adapt. --- libguile/foreign.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/foreign.c') diff --git a/libguile/foreign.c b/libguile/foreign.c index 11c0f3601..5ee225da4 100644 --- a/libguile/foreign.c +++ b/libguile/foreign.c @@ -766,8 +766,8 @@ 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_op_assert_nargs_ee, nreq + 1), \ - SCM_PACK_RTL_12_12 (scm_op_foreign_call, 0, 1) + SCM_PACK_OP_24 (assert_nargs_ee, nreq + 1), \ + SCM_PACK_OP_12_12 (foreign_call, 0, 1) #define CODE_10(n) \ CODE (n + 0), CODE (n + 1), CODE (n + 2), CODE (n + 3), CODE (n + 4), \ -- cgit v1.2.3