diff options
author | Ivan Maidanski <ivmai@mail.ru> | 2012-01-17 19:44:39 +0400 |
---|---|---|
committer | Ivan Maidanski <ivmai@mail.ru> | 2012-01-17 19:44:39 +0400 |
commit | 293d927f27280b8e371384dd530d5df3e8536672 (patch) | |
tree | 9db39328853e5a74212b293127f48eee0eba61d1 /tests/test.c | |
parent | 31316be0af621ff804ef46b5533259d13009fb24 (diff) | |
download | bdwgc-293d927f27280b8e371384dd530d5df3e8536672.tar.gz |
Add 'const' qualifier to pointer argument of GC_clear/set_mark_bit,
GC_finalized_malloc, GC_general_register_disappearing_link
* dbg_mlc.c (GC_debug_change_stubborn, GC_debug_end_stubborn_change):
Make argument pointer const.
* finalize.c (GC_general_register_disappearing_link): Likewise.
* fnlz_mlc.c (GC_core_finalized_malloc, GC_finalized_malloc): Likewise.
* include/gc.h (GC_change_stubborn, GC_end_stubborn_change,
GC_debug_change_stubborn, GC_debug_end_stubborn_change,
GC_general_register_disappearing_link): Likewise.
* include/gc_disclaim.h (GC_finalized_malloc): Likewise.
* include/gc_mark.h (GC_clear_mark_bit, GC_set_mark_bit): Likewise.
* mark.c (GC_set_mark_bit, GC_clear_mark_bit): Likewise.
* stubborn.c (GC_end_stubborn_change, GC_change_stubborn): Likewise.
* finalize.c (GC_general_register_disappearing_link): Remove redundant
pointer type casts.
* tests/test.c (cons, print_int_list, mktree): Likewise.
* include/gc.h (GC_GENERAL_REGISTER_DISAPPEARING_LINK): Add cast
removing potential 'const' qualifier.
Diffstat (limited to 'tests/test.c')
-rw-r--r-- | tests/test.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/tests/test.c b/tests/test.c index ca7c6d42..863d0c97 100644 --- a/tests/test.c +++ b/tests/test.c @@ -221,7 +221,7 @@ sexpr cons (sexpr x, sexpr y) } else { extra_count = my_extra; } - GC_END_STUBBORN_CHANGE((char *)r); + GC_END_STUBBORN_CHANGE(r); return(r); } # endif @@ -430,14 +430,14 @@ void print_int_list(sexpr x) /* ditto: */ void check_marks_int_list(sexpr x) { - if (!GC_is_marked((ptr_t)x)) + if (!GC_is_marked(x)) GC_printf("[unm:%p]", (void *)x); else GC_printf("[mkd:%p]", (void *)x); if (is_nil(x)) { GC_printf("NIL\n"); } else { - if (!GC_is_marked((ptr_t)car(x))) + if (!GC_is_marked(car(x))) GC_printf("[unm car:%p]", (void *)car(x)); GC_printf("(%d)", SEXPR_TO_INT(car(car(x)))); if (!is_nil(cdr(x))) { @@ -770,8 +770,7 @@ tn * mktree(int n) } live_indicators[my_index] = 13; if (GC_GENERAL_REGISTER_DISAPPEARING_LINK( - (void * *)(&(live_indicators[my_index])), - (void *)result) != 0) { + (void * *)(&(live_indicators[my_index])), result) != 0) { GC_printf("GC_general_register_disappearing_link failed\n"); FAIL; } @@ -796,8 +795,7 @@ tn * mktree(int n) FAIL; } if (GC_GENERAL_REGISTER_DISAPPEARING_LINK( - (void * *)(&(live_indicators[my_index])), - (void *)result) != 0) { + (void * *)(&(live_indicators[my_index])), result) != 0) { GC_printf("GC_general_register_disappearing_link failed 2\n"); FAIL; } |