From 38c2c32f09bfc382d4161ea2f6fe305de29687e6 Mon Sep 17 00:00:00 2001 From: Federico Angelilli Date: Thu, 17 Oct 2024 00:08:08 +0200 Subject: Fix cast in any_sexp --- any_sexp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'any_sexp.h') diff --git a/any_sexp.h b/any_sexp.h index c8a394d..09e18bb 100644 --- a/any_sexp.h +++ b/any_sexp.h @@ -52,7 +52,7 @@ typedef struct any_sexp { #define ANY_SEXP_ERROR ((any_sexp_t) { .tag = ANY_SEXP_TAG_ERROR }) #define ANY_SEXP_NIL ((any_sexp_t) { .tag = ANY_SEXP_TAG_NIL }) -#define ANY_SEXP_GET_TAG(sexp) ((sexp).tag) +#define ANY_SEXP_GET_TAG(sexp) ((uintptr_t)(sexp).tag) #define ANY_SEXP_GET_CONS(sexp) ((sexp).cons) #define ANY_SEXP_GET_SYMBOL(sexp) ((sexp).symbol) #define ANY_SEXP_GET_STRING(sexp) ((sexp).symbol) -- cgit v1.2.3