diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 21:04:24 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 21:04:24 +0100 |
commit | 095100bbdbfc79ccba39fa68b75d8530361299d3 (patch) | |
tree | 6ae826998b83a734eece5827fe3781e685e0cbd6 /libguile/foreign.c | |
parent | 3fe96dd8088957a09cfd15747ae646595934f83a (diff) | |
download | guile-095100bbdbfc79ccba39fa68b75d8530361299d3.tar.gz |
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.
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r-- | libguile/foreign.c | 4 |
1 files changed, 2 insertions, 2 deletions
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), \ |