diff options
author | Andy Wingo <wingo@pobox.com> | 2018-05-08 20:47:18 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-05-08 20:50:40 +0200 |
commit | ed8b1adeab6daf41c071c7dd125608c634070281 (patch) | |
tree | fd15fe0a826f82c947d2f078bbd247d3c1a5f696 | |
parent | 007fcf699f2f327fdc187d9a51db0ba83b02d6de (diff) | |
download | guile-ed8b1adeab6daf41c071c7dd125608c634070281.tar.gz |
Remove unused macros in VM
* libguile/vm-engine.c (ARGS1, ARGS2, RETURN, RETURN_EXP)
(UNPACK_16_8): Remove.
-rw-r--r-- | libguile/vm-engine.c | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index f4b10af66..8c208a4f0 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -37,14 +37,6 @@ } \ while (0) -#define UNPACK_16_8(op,a,b) \ - do \ - { \ - a = (op >> 8) & 0xffff; \ - b = op >> 24; \ - } \ - while (0) - #define UNPACK_12_12(op,a,b) \ do \ { \ @@ -272,22 +264,6 @@ #define VARIABLE_BOUNDP(v) (!SCM_UNBNDP (SCM_VARIABLE_REF (v))) -#define ARGS1(a1) \ - scm_t_uint16 dst, src; \ - SCM a1; \ - UNPACK_12_12 (op, dst, src); \ - a1 = SP_REF (src) -#define ARGS2(a1, a2) \ - scm_t_uint8 dst, src1, src2; \ - SCM a1, a2; \ - UNPACK_8_8_8 (op, dst, src1, src2); \ - a1 = SP_REF (src1); \ - a2 = SP_REF (src2) -#define RETURN(x) \ - do { SP_SET (dst, x); NEXT (1); } while (0) -#define RETURN_EXP(exp) \ - do { SCM __x; SYNC_IP (); __x = exp; CACHE_SP (); RETURN (__x); } while (0) - /* Return true (non-zero) if PTR has suitable alignment for TYPE. */ #define ALIGNED_P(ptr, type) \ ((scm_t_uintptr) (ptr) % alignof_type (type) == 0) @@ -3368,8 +3344,6 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, #undef ABORT_CONTINUATION_HOOK #undef ALIGNED_P #undef APPLY_HOOK -#undef ARGS1 -#undef ARGS2 #undef BEGIN_DISPATCH_SWITCH #undef CACHE_REGISTER #undef END_DISPATCH_SWITCH @@ -3382,14 +3356,12 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, #undef NEXT_HOOK #undef POP_CONTINUATION_HOOK #undef PUSH_CONTINUATION_HOOK -#undef RETURN #undef RUN_HOOK #undef RUN_HOOK0 #undef RUN_HOOK1 #undef SYNC_IP #undef UNPACK_8_8_8 #undef UNPACK_8_16 -#undef UNPACK_16_8 #undef UNPACK_12_12 #undef UNPACK_24 #undef VARIABLE_BOUNDP |