From 8a14d31f06f1a0c1ea5ff3c329883c4ea33727c6 Mon Sep 17 00:00:00 2001 From: Paulo Matos Date: Tue, 6 Oct 2020 14:36:53 +0200 Subject: [PATCH] Fix compiler warning in 32bits due to size mismatch in ptr cast (#3427) Casting a ptr to an integer of a different size causes a warning - this is only noticeable on 32bits. Fix this by using `TO_VOIDP` and `TO_PTR` helper macros. --- racket/src/ChezScheme/c/gcwrapper.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/ChezScheme/c/gcwrapper.c b/racket/src/ChezScheme/c/gcwrapper.c index 982a37cfe1..f0f425a92c 100644 --- a/racket/src/ChezScheme/c/gcwrapper.c +++ b/racket/src/ChezScheme/c/gcwrapper.c @@ -576,7 +576,7 @@ static void check_pointer(ptr *pp, IBOOL address_is_meaningful, ptr base, uptr s } if (address_is_meaningful) { - seginfo *ppsi = MaybeSegInfo(ptr_get_segment(pp)); + seginfo *ppsi = MaybeSegInfo(ptr_get_segment(TO_PTR(pp))); if ((ppsi != NULL) && (ppsi->generation > psi->generation) /* space_data includes stacks, which are always swept */ @@ -854,7 +854,7 @@ void S_check_heap(aftergc, mcg) IBOOL aftergc; IGEN mcg; { pp1 = TO_VOIDP((ptr)((uptr)TO_PTR(pp1) + size_object(p))); } else { /* skip past unmarked */ - pp1 = TO_VOIDP((ptr)((uptr)pp1 + byte_alignment)); + pp1 = TO_VOIDP((ptr)((uptr)TO_PTR(pp1) + byte_alignment)); } } else { if (*pp1 == forward_marker)