[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 42/42: Remove TEST_CHANGE_CLASS
From: |
Andy Wingo |
Subject: |
[Guile-commits] 42/42: Remove TEST_CHANGE_CLASS |
Date: |
Sat, 10 Jan 2015 00:03:19 +0000 |
wingo pushed a commit to branch wip-goops-refactor
in repository guile.
commit f86e58789544514fc4ca3a6acc11e2a7bbeaf5bb
Author: Andy Wingo <address@hidden>
Date: Sat Jan 10 00:55:44 2015 +0100
Remove TEST_CHANGE_CLASS
* libguile/goops.c (TEST_CHANGE_CLASS): Remove unused macro and comment.
---
libguile/goops.c | 30 ------------------------------
1 files changed, 0 insertions(+), 30 deletions(-)
diff --git a/libguile/goops.c b/libguile/goops.c
index 5a2a387..ff4d65f 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -91,41 +91,11 @@ static SCM var_slot_bound_p = SCM_BOOL_F;
static SCM var_slot_exists_p = SCM_BOOL_F;
-SCM_SYMBOL (sym_slot_unbound, "slot-unbound");
-SCM_SYMBOL (sym_slot_missing, "slot-missing");
SCM_SYMBOL (sym_change_class, "change-class");
SCM_VARIABLE (scm_var_make_extended_generic, "make-extended-generic");
-/* Class redefinition protocol:
-
- A class is represented by a heap header h1 which points to a
- malloc:ed memory block m1.
-
- When a new version of a class is created, a new header h2 and
- memory block m2 are allocated. The headers h1 and h2 then switch
- pointers so that h1 refers to m2 and h2 to m1. In this way, names
- bound to h1 will point to the new class at the same time as h2 will
- be a handle which the GC will use to free m1.
-
- The `redefined' slot of m1 will be set to point to h1. An old
- instance will have its class pointer (the CAR of the heap header)
- pointing to m1. The non-immediate `redefined'-slot in m1 indicates
- the class modification and the new class pointer can be found via
- h1.
-*/
-
-#define TEST_CHANGE_CLASS(obj, class) \
- { \
- class = SCM_CLASS_OF (obj); \
- if (scm_is_true (SCM_OBJ_CLASS_REDEF (obj))) \
- { \
- scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\
- class = SCM_CLASS_OF (obj); \
- } \
- }
-
#define SCM_GOOPS_UNBOUND SCM_UNBOUND
#define SCM_GOOPS_UNBOUNDP(x) (scm_is_eq (x, SCM_GOOPS_UNBOUND))
- [Guile-commits] 30/42: More unused code removal in GOOPS, (continued)
- [Guile-commits] 30/42: More unused code removal in GOOPS, Andy Wingo, 2015/01/09
- [Guile-commits] 26/42: Remove hashset slots from GOOPS classes, Andy Wingo, 2015/01/09
- [Guile-commits] 29/42: Remove private var_no_applicable_method capture, Andy Wingo, 2015/01/09
- [Guile-commits] 22/42: Remove unused `default-slot-definition-class' <class> slot, Andy Wingo, 2015/01/09
- [Guile-commits] 31/42: Remove unused union scm_t_debug_info, Andy Wingo, 2015/01/09
- [Guile-commits] 33/42: Remove GOOPS random state, Andy Wingo, 2015/01/09
- [Guile-commits] 35/42: Statically compute offsets for slots of <class> in Scheme, Andy Wingo, 2015/01/09
- [Guile-commits] 24/42: Generics with setters have <applicable-struct-with-setter> layout, Andy Wingo, 2015/01/09
- [Guile-commits] 11/42: Move GOOPS boot to Scheme, Andy Wingo, 2015/01/09
- [Guile-commits] 34/42: Refactor to <class> slot computation, Andy Wingo, 2015/01/09
- [Guile-commits] 42/42: Remove TEST_CHANGE_CLASS,
Andy Wingo <=
- [Guile-commits] 41/42: Remove pure-generic?, Andy Wingo, 2015/01/09
- [Guile-commits] 40/42: Goops slot-unbound / slot-missing cleanups, Andy Wingo, 2015/01/09
- [Guile-commits] 38/42: Port method and generic accessors to Scheme, Andy Wingo, 2015/01/09
- [Guile-commits] 39/42: Move slot-ref et al to Scheme, Andy Wingo, 2015/01/09
- [Guile-commits] 37/42: <class> accessors implemented in Scheme, Andy Wingo, 2015/01/09
- [Guile-commits] 32/42: More goops.c cleanups, and fix a security issue, Andy Wingo, 2015/01/09
- [Guile-commits] 25/42: Deprecate C exports of GOOPS classes., Andy Wingo, 2015/01/09
- [Guile-commits] 17/42: Fold GOOPS compile and dispatch modules into main GOOPS module, Andy Wingo, 2015/01/09
- [Guile-commits] 36/42: goops: use computed class slot offsets; untabify and fix whitepace, Andy Wingo, 2015/01/09