[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 15/15: Remove unused macros in vm-engine
From: |
Andy Wingo |
Subject: |
[Guile-commits] 15/15: Remove unused macros in vm-engine |
Date: |
Fri, 13 Apr 2018 04:41:13 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit 79ba396a1ea87d81cf6f2a90e8d181471a4b2010
Author: Andy Wingo <address@hidden>
Date: Fri Apr 13 10:40:02 2018 +0200
Remove unused macros in vm-engine
* libguile/vm-engine.c: Remove unused CPP macros.
---
libguile/vm-engine.c | 62 +++++-----------------------------------------------
1 file changed, 6 insertions(+), 56 deletions(-)
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 7640b96..0f69efe 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -131,16 +131,11 @@
#define RUN_HOOK0(h) RUN_HOOK (vm_dispatch_##h##_hook (vp))
#define RUN_HOOK1(h, arg) RUN_HOOK (vm_dispatch_##h##_hook (vp, arg))
-#define APPLY_HOOK() \
- RUN_HOOK0 (apply)
-#define PUSH_CONTINUATION_HOOK() \
- RUN_HOOK0 (push_continuation)
-#define POP_CONTINUATION_HOOK(old_fp) \
- RUN_HOOK1 (pop_continuation, old_fp)
-#define NEXT_HOOK() \
- RUN_HOOK0 (next)
-#define ABORT_CONTINUATION_HOOK() \
- RUN_HOOK0 (abort)
+#define APPLY_HOOK() RUN_HOOK0 (apply)
+#define PUSH_CONTINUATION_HOOK() RUN_HOOK0 (push_continuation)
+#define POP_CONTINUATION_HOOK(old_fp) RUN_HOOK1 (pop_continuation, old_fp)
+#define NEXT_HOOK() RUN_HOOK0 (next)
+#define ABORT_CONTINUATION_HOOK() RUN_HOOK0 (abort)
@@ -217,11 +212,6 @@
#define FRAME_LOCALS_COUNT() (vp->fp - sp)
#define FRAME_LOCALS_COUNT_FROM(slot) (FRAME_LOCALS_COUNT () - slot)
-/* Restore registers after returning from a frame. */
-#define RESTORE_FRAME() \
- do { \
- } while (0)
-
#ifdef HAVE_LABELS_AS_VALUES
# define BEGIN_DISPATCH_SWITCH /* */
@@ -280,9 +270,7 @@
#define SP_REF_PTR(i) (sp[i].as_ptr)
#define SP_SET_PTR(i,o) (sp[i].as_ptr = o)
-#define VARIABLE_REF(v) SCM_VARIABLE_REF (v)
-#define VARIABLE_SET(v,o) SCM_VARIABLE_SET (v, o)
-#define VARIABLE_BOUNDP(v) (!scm_is_eq (VARIABLE_REF (v), SCM_UNDEFINED))
+#define VARIABLE_BOUNDP(v) (!SCM_UNBNDP (SCM_VARIABLE_REF (v)))
#define ARGS1(a1) \
scm_t_uint16 dst, src; \
@@ -300,27 +288,6 @@
#define RETURN_EXP(exp) \
do { SCM __x; SYNC_IP (); __x = exp; CACHE_SP (); RETURN (__x); } while (0)
-/* The maximum/minimum tagged integers. */
-#define INUM_MAX \
- ((scm_t_signed_bits) SCM_UNPACK (SCM_I_MAKINUM (SCM_MOST_POSITIVE_FIXNUM)))
-#define INUM_MIN \
- ((scm_t_signed_bits) SCM_UNPACK (SCM_I_MAKINUM (SCM_MOST_NEGATIVE_FIXNUM)))
-#define INUM_STEP \
- ((scm_t_signed_bits) SCM_UNPACK (SCM_INUM1) \
- - (scm_t_signed_bits) SCM_UNPACK (SCM_INUM0))
-
-#define BINARY_INTEGER_OP(CFUNC,SFUNC) \
- { \
- ARGS2 (x, y); \
- if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \
- { \
- scm_t_int64 n = SCM_I_INUM (x) CFUNC SCM_I_INUM (y); \
- if (SCM_FIXABLE (n)) \
- RETURN (SCM_I_MAKINUM (n)); \
- } \
- RETURN_EXP (SFUNC (x, y)); \
- }
-
/* Return true (non-zero) if PTR has suitable alignment for TYPE. */
#define ALIGNED_P(ptr, type) \
((scm_t_uintptr) (ptr) % alignof_type (type) == 0)
@@ -3603,19 +3570,8 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
#undef ARGS1
#undef ARGS2
#undef BEGIN_DISPATCH_SWITCH
-#undef BINARY_INTEGER_OP
-#undef BV_FIXABLE_INT_REF
-#undef BV_FIXABLE_INT_SET
-#undef BV_FLOAT_REF
-#undef BV_FLOAT_SET
-#undef BV_INT_REF
-#undef BV_INT_SET
#undef CACHE_REGISTER
#undef END_DISPATCH_SWITCH
-#undef FREE_VARIABLE_REF
-#undef INIT
-#undef INUM_MAX
-#undef INUM_MIN
#undef FP_REF
#undef FP_SET
#undef FP_SLOT
@@ -3623,7 +3579,6 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
#undef SP_SET
#undef NEXT
#undef NEXT_HOOK
-#undef NEXT_JUMP
#undef POP_CONTINUATION_HOOK
#undef PUSH_CONTINUATION_HOOK
#undef RETURN
@@ -3637,11 +3592,6 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
#undef UNPACK_12_12
#undef UNPACK_24
#undef VARIABLE_BOUNDP
-#undef VARIABLE_REF
-#undef VARIABLE_SET
-#undef VM_CHECK_FREE_VARIABLE
-#undef VM_CHECK_OBJECT
-#undef VM_CHECK_UNDERFLOW
#undef VM_DEFINE_OP
#undef VM_INSTRUCTION_TO_LABEL
#undef VM_USE_HOOKS
- [Guile-commits] 02/15: Slim heap-allocated flonums, (continued)
- [Guile-commits] 02/15: Slim heap-allocated flonums, Andy Wingo, 2018/04/13
- [Guile-commits] 01/15: Add scm->f64 intrinsic, Andy Wingo, 2018/04/13
- [Guile-commits] 11/15: logsub is intrinsic, Andy Wingo, 2018/04/13
- [Guile-commits] 09/15: u64->scm, s64->scm intrinsics, Andy Wingo, 2018/04/13
- [Guile-commits] 08/15: Remove scm->u64, etc implementations, Andy Wingo, 2018/04/13
- [Guile-commits] 10/15: Remove implementations of obsolete s64->scm, u64->scm insts, Andy Wingo, 2018/04/13
- [Guile-commits] 12/15: Remove implementation of logsub VM op, Andy Wingo, 2018/04/13
- [Guile-commits] 07/15: scm->u64, scm->s64, scm->u64/truncate intrinsics, Andy Wingo, 2018/04/13
- [Guile-commits] 14/15: Remove implementation of atomic box ops, Andy Wingo, 2018/04/13
- [Guile-commits] 13/15: Explode atomic box ops to new atomic instructions, Andy Wingo, 2018/04/13
- [Guile-commits] 15/15: Remove unused macros in vm-engine,
Andy Wingo <=