summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-05-08 20:47:18 +0200
committerAndy Wingo <wingo@pobox.com>2018-05-08 20:50:40 +0200
commited8b1adeab6daf41c071c7dd125608c634070281 (patch)
treefd15fe0a826f82c947d2f078bbd247d3c1a5f696
parent007fcf699f2f327fdc187d9a51db0ba83b02d6de (diff)
downloadguile-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.c28
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